---

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

---

Ahhhhh,

hab es gefunden.

Es heißt nicht:

Set n = fso.MoveFile("C:\new\test1.dwg", "C:\old")

sondern

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

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

cu
Heiko

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

---

Wie heißt der Verweis, um FileSystemObject zu bekommen?

Jürgen

---

Hallo Heiko,

so hat es bei mir geklappt:

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
    fso.MoveFile "C:\new\installdata.mdb", "C:\old\installdata.mdb"
Else
    MsgBox "NO"
End If
End Sub

Da fso.movefile eine Methode ist, kannst du sie nicht mit Set einer Variablen gleichsetzen, das geht nur mit Objekten.

Jürgen