Ich habe ein Skript von VBS, das die neuste Datei in einem Verzeichnis ermittelt.
Sowas geht doch bestimmt auch in Xbase oder?
Das VBS Skript:
Code: Alles auswählen
Set IO = CreateObject("Scripting.FileSystemObject")
set oFolder = IO.GetFolder("C:\")
Set oFiles = oFolder.Files
sNewestFile = Null
For Each oFile In oFiles
If IsNull(sNewestFile) Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
Elseif dPrevDate < oFile.DateLastModified Then
sNewestFile = oFile.Path
oNewestFile = oFile.DateLastModified
End If
Next
wscript.echo "Zuletzt geänderte (neuste) Datei: " & sNewestFile & " geändert am " & oNewestFile
Bisher verwende ich Xcopy, wenn ich von einem Verzeichnis in ein anderes kopieren will.
Ob das immer erfolgreich ist kann ich leider nicht einsehen.
(Das ganze ist eine Datensicherung)
Deshalb würde ich gerne einen Dialog machen, in den man beide Verzeichnspfade einträgt, auf Start klickt und
am Ende wird dann per MsgBox aus beiden Pfaden der Name der neusten Datei mit Änderungsdatum angezeigt.
Wenn diese übereinstimmen, dann war das kopieren erfolgreich. Das reicht für mich als Erfolgsbedingung, da das Programm, das die
neuste Datei erzeugt erst kurz vorher beendet wurde und dadurch die neuste Datei sehr zeitnah sein muss.
Die Sicherung erfolgt meist auf eine externe Festplatte. Diese hat allerdings nicht immer den gleichen Laufwerksbuchstaben.
Gibt es eine Möglichkeit neu hinzukommende Laufwerksbuchstaben (also wenn jemand eine ext. Festplatte einsteckt) während der Programmlaufzeit zu registrieren?
Sind viele Fragen auf einmal, ich weiß.
Danke schonmal!