Dateien automatisch zyklisch verschieben
11.02.2010 17:06:55
NoNet
Hallo Günter,
kopiere dazu den folgenden Code in ein allgemeines Modul :
Option Explicit
'11.02.2010, NoNet - www.excelei.de
Dim datZeit As Date 'Zeitpunkt der nächsten Überprüfung - Deklaration für das gesamte Modul
Const strPfad = "C:\Temp\Check\" 'zu überprüfender Ordner - mit "\" am Ende !
Const strPfad2 = "C:\Temp\Test\" 'Ordner, in den Dateien verschoben werden - mit "\" am Ende !
Sub DateienZyklischVerschieben()
'Dieses Makro starten, um die Überprüfung zu starten !
datZeit = Now + TimeSerial(0, 0, 10) 'Alle 10 Sekunden überprüfen
Application.OnTime datZeit, "VerzeichnisPruefen"
End Sub
Sub VerzeichnisPruefen()
Dim strDateiname As String
strDateiname = Dir(strPfad & "*.xls")
Debug.Print Now
While strDateiname ""
DateiVerschieben (strDateiname)
strDateiname = Dir 'nächsten Dateiname einlesen
Wend
datZeit = datZeit + TimeSerial(0, 0, 10) 'in weiteren 10 Sekunden überprüfen
Application.OnTime datZeit, "VerzeichnisPruefen"
End Sub
Sub DateiVerschieben(strDateiname)
Name strPfad & strDateiname As strPfad2 & strDateiname 'Datei in anderen Ordner verschieben
'Hier evtl. weitere Anweisungen
End Sub
Sub PruefungBeenden()
'Dieses Makro starten, um die Überprüfung zu beenden !
Application.OnTime datZeit, "VerzeichnisPruefen", schedule:=False
End Sub
Das Makro DateienZyklischVerschieben startet den Überprüfungsvorgang, das Makro PruefungBeenden beendet diesen.
Hier im Beispiel wird der Ordner alle 10 Sekunden auf Dateien mit Namen *.xls überprüft.
Die beiden Ordnernamen und die Dateinamen kannst Du entsprechend anpassen....
Frage : Wozu benötigst Du diesen automatischen Prüfungs-/Verschiebe-Mechanismus ?
Gruß, NoNet