TIA Wie kann ich prüfen ob eine .csv Datei richtig zum Server übertragen wird?

BeWa

Level-1
Beiträge
4
Reaktionspunkte
0
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo Zusammen,

habe folgendes Problem. Ich möchte beim TP 1500 Comfort eine .csv Datei per Script zum Server schicken und prüfen ob diese richtig angekommen ist.

Ich bedanke mich jetzt schon für eure Hilfe.

MfG

BeWa
 
... du fragst nach Abschluß deiner Kopier-Aktion ab, ob es am Ziel die Datei gibt.
Ist das nicht genau genug dann müßtest du vor der Kopier-Aktion die Daten der zu kopierenden Datei abfragen (Zeitstempel, Größe) und hinterher das mit der Datei am Ziel vergleichen ...

Gruß
Larry
 
Zuviel Werbung?
-> Hier kostenlos registrieren
... du fragst nach Abschluß deiner Kopier-Aktion ab, ob es am Ziel die Datei gibt.
Ist das nicht genau genug dann müßtest du vor der Kopier-Aktion die Daten der zu kopierenden Datei abfragen (Zeitstempel, Größe) und hinterher das mit der Datei am Ziel vergleichen ...

Gruß
Larry

Vielen Dank Larry,

hast Du vielleicht ein fertiges Script welches ich einfach übernehmen kann. Das wäre einfach toll.

MfG

BeWa
 
Naja ... nicht so ganz ...
Das ist das, was ich habe :
Code:
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

kleines Manko dabei : es ist für Flex-Runtime und es kopiert die Dateien nur (und löscht sie anschliessend auf dem Quell-Laufwerk).
Trotzdem, wenn du noch so gar keinen Ansatz hast, sollte dir das schon mal ein bißchen weiter helfen ...

Gruß
Larry
 
ich hätte da was, der Pfad kann auch im Netzwerk liegen:

Code:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'File Exists
Dim fs, Pfad, Datei
Set fs = CreateObject("FileCtl.FileSystem")
Pfad = "Storage Card"
Datei= "abc.txt"
If fs.Dir("\" & Pfad & "\" & Datei) = "" Then
 'Datei nicht vorhanden
ElseIF fs.Dir("\" & Pfad & "\" & Datei) = Datei Then
 'Datei vorhanden
End if
Set fs = Nothing
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Folder Exists
Dim fs, Pfad, Datei
Set fs = CreateObject("FileCtl.FileSystem")
Pfad = "Storage Card"
Ordner= "abc"
If fs.Dir("\" & Pfad & "\" & Ordner, 16) = "" Then
 'Ordner nicht vorhanden
 fs.MkDir "\" & Pfad & "\" & Ordner
ElseIF fs.Dir("\" & Pfad & "\" & Ordner, 16) = Ordner Then
 'Ordner vorhanden
End if
Set fs = Nothing

Gruß, Nico
 
Zuviel Werbung?
-> Hier kostenlos registrieren
ich hätte da was, der Pfad kann auch im Netzwerk liegen:

Code:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'File Exists
Dim fs, Pfad, Datei
Set fs = CreateObject("FileCtl.FileSystem")
Pfad = "Storage Card"
Datei= "abc.txt"
If fs.Dir("\" & Pfad & "\" & Datei) = "" Then
 'Datei nicht vorhanden
ElseIF fs.Dir("\" & Pfad & "\" & Datei) = Datei Then
 'Datei vorhanden
End if
Set fs = Nothing
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Folder Exists
Dim fs, Pfad, Datei
Set fs = CreateObject("FileCtl.FileSystem")
Pfad = "Storage Card"
Ordner= "abc"
If fs.Dir("\" & Pfad & "\" & Ordner, 16) = "" Then
 'Ordner nicht vorhanden
 fs.MkDir "\" & Pfad & "\" & Ordner
ElseIF fs.Dir("\" & Pfad & "\" & Ordner, 16) = Ordner Then
 'Ordner vorhanden
End if
Set fs = Nothing

Gruß, Nico

Hallo Nico,

vielen Dank für deinen Vorschlag. Ich habe gestern ein paar Dinge getestet und die funktionieren auch soweit, ich werde aber noch prüfen müssen ob die Daten wirklich angekommen sind da ich nicht genau weiß wie lange das speichern dauert.

Gruß BeWa
 
Zurück
Oben