title image


Smiley VBS-UNC-Pfad wird nicht aufgelöst
Ich habe folgenden Script zum Kopieren von Dateien. Das Script funktioniert bei lokalen Laufwerken und Verzeichnissen ohne Probleme.

Wenn ich als Quellpfad ein UNC-Pfad angeben, kommt die Fehlermeldung Datei nicht gefunden. Hat jemand einen Tip?

hier das Script:



Sub FILECOPY()



quelle = "\\servername\scripte$\dateien"

ziel = "d:\zielverzeichnis"



If objFSO.folderexists(ziel) then



Set qfolder = objFSO.Getfolder(quelle) 'Folder von Quelle

Set zfolder = objFSO.Getfolder(ziel)



For each qfile in qfolder.files



'hier kommt die Fehlermeldung

set qDatei = objFSO.Getfile(qfolder) 'hier kann UNC nicht gelöst werden!!!

set zDatei = objFSO.Getfile(zfolder)



if qDatei.DateLastModified zDatei.DateLAstModified then



qcopyfilepath = qfile.path

zcopyfilepath = zfolder & "\" & qfile.name



objFSO.Copyfile qcopyfilepath, zcopyfilepath, true

End if



Next

End if





End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: