Datei verschieben (VB6)

[_Steffi_]

HY zusammen

Ich möchte mit diesem Code (VB6) eine PDF Datei aus einem Ordner ausschneiden und in einen neuen abspeichern.
Doch leider funktioniert dies mit Move irgend wie nicht. Das gleiche mit CopyFile funktioniert ganz normal...

 Set fs = CreateObject("Scripting.FileSystemObject")
            If fs.FolderExists(target) = False Then
                fs.CreateFolder (target)
            End If
            target = target & "\" & Filename        ' Pfad mit Dateiname
        
            fs.Move Text_PDF, target, False

 

[Dario Linsky]

Hallo,

was genau funktioniert denn an deinem Code nicht? Gibt es eine Fehlermeldung, stürzt das Programm ab? Was sagt der Debugger?

Soweit ich mich erinnere, nimmt man zum Verschieben von Dateien aber auch eher die MoveFile-Methode vom FSO.

Grüße, D.

 

[ronaldh]

Oder Du machst Dir selbst eine kleine Funktion, die genau das erledigt, ohne den Overhead des Filesystem-Objekts zu bemühen:

Public Sub MoveFile(ByVal sSFile As String, ByVal sDfile As String)
   FileCopy sSFile, sDfile
   Kill sSFile
End Sub

Grüsse
ronaldh

 

[Zvoni]

Oder man liest das Kapitel "Politically Correct Fileoperations" in McKinney's Buch "Hardcore Visual Basic" ;-)

Brrr... FSO ...*schauder*

Oder Du machst Dir selbst eine kleine Funktion, die genau das erledigt, ohne den Overhead des Filesystem-Objekts zu bemühen:

Public Sub MoveFile(ByVal sSFile As String, ByVal sDfile As String)
   FileCopy sSFile, sDfile
   Kill sSFile
End Sub

Grüsse
ronaldh