SmartTags("Allgemein\Prod_Daten.Übertragen_Aktiv") = True
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim Lokal_ProdDaten , Lokal_Backup_Daten
Dim Server_ProdDaten , Server_EAP_Daten
Lokal_ProdDaten = SmartTags("Allgemein\my_Daten_Verzeichnis") + "Prod-Daten\"
Lokal_Backup_Daten = SmartTags("Allgemein\my_Daten_Verzeichnis") + "Prod-Daten.Sav\"
Server_ProdDaten = SmartTags("Allgemein\my_Server_Verz_Daten") + SmartTags("Allgemein\my_Anlagen_Nummer") + "\Prod-Daten " + Mid(Date ,7,2)
Server_EAP_Daten = SmartTags("Allgemein\my_Server_Verz_Daten") + SmartTags("Allgemein\my_Anlagen_Nummer") + "\EAP-Daten " + Mid(Date ,7,2)
'--------------------------------------------------------------------------------------
Dim Datei_ProdDaten_Heute , Datei_EAP_Daten_Heute , Datei_FSK_Daten_Heute
Datei_ProdDaten_Heute = UCase("Daten " + myDatum("jjmmtt") + " .csv")
Datei_EAP_Daten_Heute = UCase("EAP-Daten-" + myDatum("ttmmjjjj") + ".csv")
Datei_FSK_Daten_Heute = UCase("FSK-Daten-" + myDatum("ttmmjjjj") + ".csv")
Dim fo , Verz_Inhalt , Datei , rDatei , qDatei , Datei_Jahr , Ziel_Verz , Copy_Anzahl
Copy_Anzahl = 0
'--------------------------------------------------------------------------------------
Set fo = fs.GetFolder(Lokal_ProdDaten)
Set Verz_Inhalt = fo.Files
If (Verz_Inhalt.Count = 0) Then Exit Sub
For Each Datei In Verz_Inhalt
rDatei = Datei.Name
qDatei = UCase(rDatei)
If (qDatei <> Datei_ProdDaten_Heute) _
And (qDatei <> Datei_EAP_Daten_Heute) _
And (qDatei <> Datei_FSK_Daten_Heute) _
And (Copy_Anzahl <= 20) And (Right(qDatei ,3) = "CSV") Then
If Left(qDatei ,5) = "DATEN" Then
Datei_Jahr = Mid(qDatei ,7,2)
Ziel_Verz = Server_ProdDaten + Datei_Jahr + "\"
If Not fs.FolderExists(Ziel_Verz) Then fs.CreateFolder(Ziel_Verz)
fs.CopyFile Datei , Lokal_Backup_Daten , True
fs.CopyFile Datei , Ziel_Verz , True
fs.DeleteFile Datei , True
ElseIf (Left(qDatei ,3) = "EAP") Or (Left(qDatei ,3) = "FSK") Then
Datei_Jahr = Mid(qDatei ,17,2)
Ziel_Verz = Server_EAP_Daten + Datei_Jahr + "\"
If Not fs.FolderExists(Ziel_Verz) Then fs.CreateFolder(Ziel_Verz)
fs.CopyFile Datei , Lokal_Backup_Daten , True
fs.CopyFile Datei , Ziel_Verz , True
fs.DeleteFile Datei , True
End If
ElseIf (qDatei = Datei_ProdDaten_Heute) Then
Datei_Jahr = Mid(qDatei ,7,2)
Ziel_Verz = Server_ProdDaten + Datei_Jahr + "\"
If Not fs.FolderExists(Ziel_Verz) Then fs.CreateFolder(Ziel_Verz)
fs.CopyFile Datei , Ziel_Verz , True
End If
Copy_Anzahl = Copy_Anzahl + 1
Next
SmartTags("Allgemein\Prod_Daten.Übertragen_Aktiv") = False