---

Moin Excel-Profis,

wenn ich ein Makro starte sollen alle "*.xls"-Files von //server1\test\ nach C:\test2\ gemovet werden.
Ich erstelle erst im Makro ein Verz:
MkDir C:\test2\
und will nun den moveBefehl ausführen aber wie?
In der Hilfe steht : Objekt.MoveFile
Was muss ich als Objekt oder FileSystemObject setzen?

------------------
Gruß
    Marco

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

---

Hallo Marco,

Beispiel:

Code:

---

Public Sub test()
    Dim objFSO As Object, objFile As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    For Each objFile In objFSO.GetFolder("D:\Test1\").Files
        objFile.Move "D:\Test2\"
    Next
End Sub

---

------------------
Gruß
Nepumuk 

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

---

Hallo Nepomuk,

danke für Deine Hilfe, aber ich habe da noch einen Fehler.....

Dim OName$
    bName = Format(Date, "yyyymmdd")
    MkDir "D:\El-Info\Bestellungen\" & bName
Dim objFSO As Object, objFile As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    For Each objFile In objFSO.GetFolder("\\srv-01\Iges-Server\_Elektrodenbestellung\Anforderung\").Files
        objFile.Move "C:\El\Bestellung\"
    Next

So hab ich das jetzt zusammengebastelt.
Das Makro steigt in der vorletzten Zeile mit der Meldung:
Laufzeitfehler 75
Fehler beim Zugriff auf Pfad/Datei

In dem Verz. liegen nur xls Dateien.

Hast Du noch einen Vorschlag oder habe ich ein Fehler im Makro?

------------------
Gruß
    Marco

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

---

Hallo Nepomuk,

alles Falsch,  habe den Fehler gefunden, Dein Vorschlag funktioniert super.

Danke für Deine schnelle Hilfe ........

------------------
Gruß
    Marco

[Diese Nachricht wurde von thewolff am 29. Mai. 2007 editiert.]

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