Datensicherung (*.csv) auf Storagecard2 mit Datumsstempel

'interne Variablen bliden

Dim fs,current_time,YYYY,MM,DD,H,M,BackNowDir,Backupfile

'Platzhalter generieren

Set FS= CreateObject("Scripting.FileSystemObject")

'abzuspeichernde Datei laden

Set Backupfile=fs.getfile("\storage card2\datensatz.csv")

'Datumswert generieren

current_Time = Now

'Jahr

YYYY = DatePart("yyyy", current_time)

'Monat

MM = DatePart ("m",Current_time)

'Tag

DD = DatePart ("d", Current_time)

'Stunde

H = DatePart ("h", Current_time)

'Minute

M = DatePart ("n", Current_time)

'Backupverzeichnis erstellen

'Ordnername setzt sich aus Jahr,Monat,Tag,Stunde und Minute zusammen

Set BackNowDir=fs.createfolder("\storage card2\" & YYYY & "_" & MM & "_" & DD & "_" & H & "_" & M )

'Backupdatei kopieren

FS.CopyFile BackupFile, BackNowDir & "\", true