[SIZE=2][COLOR=#0000ff]
Dim[/COLOR][/SIZE][SIZE=2] f,fs,monat,x,jahr,zusatz:[/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] f= CreateObject("filectl.file"):[/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] fs = CreateObject("filectl.filesystem")
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card usb") = "" [/SIZE][SIZE=2][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]stm_48[/COLOR][/SIZE][SIZE=2] = [/SIZE][SIZE=2][COLOR=#0000ff]true
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Exit[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub
End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If
On[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Error[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Resume[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next
[/COLOR][/SIZE][SIZE=2]fs.filecopy "\storage card2\archiv_bm0.csv", "\storage card usb\archiv_bm0.csv"
fs.filecopy "\storage card2\archiv_sm0.csv", "\storage card usb\archiv_sm0.csv"
fs.filecopy "\storage card2\archiv_system0.csv", "\storage card usb\archiv_system0.csv"
[/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] x=6 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] 9
jahr=x
[/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] monat=1 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] 12
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] monat <10 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] zusatz = "0" & monat
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] monat >=10 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] zusatz = monat
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card2\daten\ge_200"&jahr&".csv") <> "" [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] fs.filecopy "\storage card2\daten\ge_200"&jahr&".csv", "\storage card usb\GE_200"&jahr&".csv"
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card2\daten\p1_200"&jahr&"-"&zusatz&".csv") <> "" [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] fs.filecopy "\storage card2\daten\p1_200"&jahr&"-"&zusatz&".csv", "\storage card usb\P1_200"&jahr&"-"&zusatz&".csv"
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card2\daten\lz_200"&jahr&"-"&zusatz&".csv") <> "" [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] fs.filecopy "\storage card2\daten\lz_200"&jahr&"-"&zusatz&".csv", "\storage card usb\LZ_200"&jahr&"-"&zusatz&".csv"
[/SIZE][SIZE=2][COLOR=#0000ff]Next
Next
[/COLOR][/SIZE]