---

Hi @all,

ich versuche mich gerade an den filesystemobjects und habe direct ein Problem. Irgendwie verschiebt er mir nicht die Datei. Das Überprüfen, ob das Verzeichnis vorhanden ist, funktioniert. Hab ich hier irgendwas vergessen oder falsch angegeben? Hier ist der Code:

Private Sub CommandButton1_Click()

Dim fso As New FileSystemObject
Dim foldernew As String
Dim folderold As String
Dim n As Files

foldernew = "C:\new"
folderold = "C:\old"

If fso.FolderExists(folderold) = True Then
    Set n = fso.MoveFile("C:\new\test1.dwg", "C:\old")
Else
    MsgBox "NO"
End If
End Sub

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

dir fehlt der Dateiname in der Zieldefinition. Du kannst auf diese Weise deine Datei nicht nur verschieben, sondern auch umbenennen.

Beispiel:

If fso Is Nothing Then Set fso = New FileSystemObject
fso.MoveFile "c:\Neu Textdatei.txt", "c:\temp\Neu Textdatei.txt"

So funktioniert es.

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ulf,

Call fso.MoveFile("C:\new\test1.dwg", "C:\old\test1.dwg")

hatte es so gelöst gekriegt. Das klappt auch. Trotzdem danke für die schnelle Hilfe. Weiter so. 

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lies mal
http://ww3.cad.de/foren/ubb/Forum54/HTML/004516.shtml

Jürgen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP