'***********************************************************************************
'*** besonderen Dank an Sebastian Koch von http://www.quaschtel.de/wsh/index.htm ***
'***********************************************************************************
'***      alterHausmeister / CAD.DE                                              ***
'***********************************************************************************

Dim Aenderung_Datenfile_neu, Aenderung_Datenfile_alt
Dim Datum, Tag, Monat, Jahr, Uhrzeit, Stunde, Minuten 
Dim Tagname, Monatname, Stundename, Minutenname

'Erläuterung 

'Prüfung der Verzeichnisse
set fs = CreateObject("Scripting.FileSystemObject")
  if fs.folderexists("c:\Datensicherung") then
    'msgbox("Verzeichnis existiert")
  else
    MSGBOX ("Verzeichnis nicht vorhanden!... wird nun angelegt ...")
    set folder = fs.createfolder("c:\Datensicherung")
    set folder = fs.createfolder("c:\Datensicherung\Sicherung")
  end if

'Datei auswählen 
msgbox("Bitte im folgenden Fenster die zu überwachende Datei auswählen.")
Set objOpenDialog = CreateObject("SAFRCFileDlg.FileOpen") 
intReturn = objOpenDialog.OpenFileOpenDlg 
 
If intReturn Then 
    strFilePath = objOpenDialog.FileName 
Else 
	MsgBox("Keine Datei ausgewählt!") 
    Wscript.Quit 
End If
msgbox("Überwacht wird : " & strFilePath)

'Hauptprogramm
n=1
while n = 1
  Dateiueberwachung_P3D
wend

Sub Dateiueberwachung_P3D

'Prüfung auf Veränderungen der Datei
set fs            = createobject("Scripting.filesystemobject")
Set datenfile     = fs.GetFile(strFilePath)

Aenderung_Datenfile_alt     = datenfile.DateLastModified

wscript.sleep 1000

Aenderung_Datenfile_neu = Aenderung_Datenfile_alt
while Aenderung_Datenfile_alt = Aenderung_Datenfile_neu
  Aenderung_Datenfile_neu = datenfile.DateLastModified
  wscript.sleep 10000
wend

while Aenderung_Datenfile_alt <> Aenderung_Datenfile_neu
  Aenderung_Datenfile_alt = Aenderung_Datenfile_neu
  wscript.sleep 10000
  Aenderung_Datenfile_neu = datenfile.DateLastModified
  wscript.sleep 1000
wend

'Kopiervorgang starten
''Rausknabbern des reinen Dateinamens aus strFilePath
strFile     = right(strFilePath,    len(strFilePath)    -InStrRev(strFilePath,    "\"))

Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(strFilePath)
f1.copy ("c:\Datensicherung\Sicherung\" & strFile)
  wscript.sleep 1000

'  Umbenennung
'' Zeit- und Datumsanalyse
Datum = Date()
Tag = day(Datum)
Monat = month(Datum)
Jahr = year(Datum)
Uhrzeit = time()
Stunde = Hour(Uhrzeit)
Minuten = minute(Uhrzeit)
'Dateiname ohne Extension, aber mit Zielpath der Sicherung
strFile_noExt     = "c:\Datensicherung\Sicherung\" & left(strFile,len(strFile)-4)

IF Tag     < 10 Then Tagname     = "0" + Cstr(Tag) Else  Tagname = Cstr(Tag) 
IF Monat   < 10 Then Monatname   = "0" + Cstr(Monat) Else Monatname = Cstr(Monat)
IF Stunde  < 10 Then Stundename  = "0" + Cstr(Stunde) Else Stundename = Cstr(Stunde)
IF Minuten < 10 Then Minutenname = "0" + Cstr(Minuten) Else Minutenname = Cstr(Minuten)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(strFile_noExt & ".dwg")
f1.Move (strFile_noExt + "-" + Cstr(Jahr) + "-" + Monatname + "-" + Tagname + "-" + Stundename + "Uhr" + Minutenname + ".dwg")

End Sub ' Dateiüberwachung_P3D