Fehler mit dem FSO - Objekt

Danke für die Antwort Steven,

das Problem ist, dass ich die Dateien auslesen kann (also die Verzeichnisse)
und von
nach "C:\" kann ich auch kopieren. Aber in den anderen Verzeichnissen
funktioniert es
nicht.
Kannst du mir vielleicht ein kleines Script zukommen lassen ?

Gruß
Christian

Steven
Mon Feb 21 05:56:12 CST 2005

Versuchen Sie dieses;

CopyFileFolder [ Quelle ], [ Bestimmungsort ], [ Akte oder Heft ]
'// Akte = 1
'// Heft = 2

Function CopyFileFolder(sSource, sDestination, lOpt)
Dim objFSO, objFile, objFolder
Set objFSO = CreateObject("scripting.filesystemobject")
Select Case lOpt
Case 1 '// Akte
If objFSO.FileExists(sSource) Then
objFSO.CopyFile sSource, sDestination
End If
Case 2 '// Heft
If objFSO.FolderExists(sSource) Then
objFSO.CopyFolder sSource, sDestination
End If
End Select
Set objFSO = Nothing
Set objFile = Nothing
Set objFolder = Nothing
End Function

Sie können alot der Informationen über das filesystemobject in der
MSDN-Bibliothek oder in den WSH-Unterlagen auch finden

http://surl.co.uk/?1203

Ursprüngliches URL:
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-
8A76-1C4099D7BBB9&displaylang=en

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Christian Hellmann" <christian.hellmann@de.bosch.com> wrote in message
news:cvcfk8$hde$1@ns2.fe.internet.bosch.com...
> Danke für die Antwort Steven,
>
> das Problem ist, dass ich die Dateien auslesen kann (also die
Verzeichnisse)
> und von
> nach "C:\" kann ich auch kopieren. Aber in den anderen Verzeichnissen
> funktioniert es
> nicht.
> Kannst du mir vielleicht ein kleines Script zukommen lassen ?
>
> Gruß
> Christian
>
>

Christoph
Mon Feb 21 09:02:03 CST 2005

21.02.2005 12:11, Christian Hellmann schrieb:
> Danke für die Antwort Steven,
>
> das Problem ist, dass ich die Dateien auslesen kann (also die Verzeichnisse)
> und von
> nach "C:\" kann ich auch kopieren. Aber in den anderen Verzeichnissen
> funktioniert es
> nicht.
> Kannst du mir vielleicht ein kleines Script zukommen lassen ?

Mit ziemlicher Sicherheit sieht Dein Kopierbefehl schematisch so aus:

Fso.CopyFile "C:\MeineDatei.dat", "D:\EinOrdner"

In diesem Fall interpretiert das FSO "D:\EinOrdner" als den Zielpfad
der neuen Datei. Da "D:\EinOrdner" bereits für den Ordner vergeben ist
und der nicht von der Datei überschreiben werden kann, kommt es zu
der Fehlermeldung. Die Lösung ist, immer darauf zu achten, dass am Ende
des Zielpfades ein *Backslash* steht, also:

Fso.CopyFile "C:\MeineDatei.dat", "D:\EinOrdner\"

Nur dann wird "MeineDatei.dat" in den Ordner *hinein* *kopiert*.
Alternativ kannst Du auch den vollständigen neuen Pfad angeben:

Fso.CopyFile "C:\MeineDatei.dat", "D:\EinOrdner\MeineDatei.dat"


--
Gruesse, Christoph

Rio Riay Riayo - Gordon Sumner, 1979