VBS Ordner inklusive Unterordner und Dateien von SD zu USB verschieben

Hallo Zusammen,

ich suchen eine Skript, dass einen oder auch mehrere Ordner von der SD-Karte auf USB-Stick verschiebt.

Das Problem dabei ist, dass Ordner- bzw. Dateinamen dynamisch sind. D.h., Ordner- und Dateinamen sowie die Anzahl der Dateien sind unbekannt. Soll einfach alles verschoben werden.

Es geht um Folgendes:

Es handels sich um eine Reinigungsanlage, die für jeden Warenträger während des Reinigungsprozesses Daten sammelt. Diese Daten werden am Ende des Prozesses in eine CSV-Datei geschrieben und auf der SD-Karte abgelegt. Um das etwas Kundenfreundlicher zu strukurieren, sind Name und Ablageort der Dateien dynamisch(zeitpunktabhängig).

Zeitpunktabhängig bedeutet in meinem Fall, wann die Datei erzeugt wurde.

d.h.:

Falls noch nich vorhanden wird ein Ordner mit der Jahreszahl des Zeitpunktes erstellt.

Darin wird, falls noch nich vorhanden, ein Ordner mit dem Monatsnamen des Zeitpunktes erstellt.

Dort hinein wird dann die erzeugte Datei geschrieben. Der Name der Datei ergibt sich aus dem Tag im Monat, der aktuellen Uhrzeit, der Nummer des Warenträgers und der Teilennummer im Warenträger.

quasi so hier:

\Storage Card SD\
   2015\
          ...
          Juni\
              ...
              2__7_21_25__1__IOZ331G554.CSV
              9__16_22_54__8__BIS0BFF65E.CSV
              11__10_27_36__12__UHR78175ADVE.CSV
              ...
          Juli\
              ...
              2__9_36_25__5__004AG554.CSV
              2__13_41_54__10__BIS007Z8E.CSV
              7__8_07_13__3__UCS6175ADVE.CSV
          ...

Was ähnlichen kommt dann natürlich auch 2016 dazu.

Das namentliche Ansprechen der Ordner und Dateien gestalltet sich also schwierig, weil z.B. Ordner und Unterordner erst erstellt werden, wenn sie benötigt werden.

Ich hoffen das ich das einigermaßen verständlich erklärt habe.

Nach dem Verschieben der Daten soll die SD-Karte quasi leer sein.

Die Daten vom USB-Stick sollten sich natürlich dann mit einem herkömmlichen Rechner öffnen und auswerten lassen.

Verwendet wird ein TP1200 Comfort und TIA Portal V13 mit WinCC Comfort V13.

Hat da jemand Lösungsvorschläge?

Gruß

ling

Hallo,

du kannst ja die Ordner mit den Jahren auf Vorhandensein abfragen.

Ich würde die gesamten Jahresordner verschieben, da sollte dann der komplette Inhalt mitgehen...

Hier eine Anleitung für Windows XP/7:

http://www.vbarchiv.net/tipps/tipp_457-ordner-kopieren-verschieben-oder-loeschen.html

Mußt du halt auf WinCE vom TP1200 umstricken ...

Mfg

mm76

Danke für die schnelle Antwort.

Ich hatte da eher an sowas gedacht wie:

...

For each folder In ...
     Folder.Move "Ziel-Pfad"
Next

...

oder so ähnlich.

gibt's da auch was?

wenn nicht, dann wäre es wahrscheinlich das beste, die ganzen Jahreszahlordner in einem übergeordneten Ordner zu speichern und den dann zu verschieben. Oder?

 ... einen gemeinsamen Ordner zu machen ist natürlich noch einfacher ...

Du hast ja eine Abfrage, ob es den Ordner "2014" gibt, oder nicht?

Naja, ich setze eine Variable auf die aktuelle Jahreszahl und dann prüfe ich, ob es einen Ordner mit dem Name schon gibt. Wenn nicht, dann wird er erzeugt.

So sieht der Code aus mit dem ich die Datei erzeuge:

Sub write_data()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
'  Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:

SmartTags("LogAktiv") = True
'Declaration of local tags - Deklaration der lokalen Variablen
Dim fo            
Dim path
Dim mode
Dim trenn
Dim HV_time
Dim fs
Dim Ordner
Dim UOrdner
Dim Laufwerk

Laufwerk = "\Storage Card SD\"
Ordner = Year(Date)
UOrdner = MonthName(Month(Date))
 
' Create object for filesystem access
Set fs = CreateObject("filectl.filesystem")

'Ordner erzeugen, falls noch nich vorhanden
If fs.dir(Laufwerk & "\"  & Ordner) = "" Then
    fs.mkdir(Laufwerk & "\"  & Ordner) ' Create folder
       fs.mkdir(Laufwerk & "\"  & Ordner & "\" & UOrdner) ' Create folder
Else
       If fs.dir(Laufwerk & "\"  & Ordner & "\" & UOrdner) = "" Then
        fs.mkdir(Laufwerk & "\"  & Ordner & "\" & UOrdner) ' Create folder
    End If
End If

' Deallocate filesystem object
 Set fs = Nothing

' Doppelpunkte in der Uhrzeit durch Unterstriche ersetzen
HV_time = Time
HV_time=Replace(HV_time,":","_")

trenn=";"

'Initialization of Tags - Initialisierung von Variablen
mode=8    '8 = Append

'Selection of the storage path - Auswahl des Speicherpfads
path = Laufwerk & "\" & Ordner & "\" & UOrdner & "\"  & Day(Date) & "__" & HV_time & "__" & SmartTags("KorbNr") & "__" & SmartTags("Teil[1]") & ".csv"
'

'Starting error routine - Starten der Fehlerroutine
On Error Resume Next

'Create a file object - Datei Objekt erstellen
Set fo= CreateObject("FileCtl.File")

'Check if any errors happend - Auf Fehler prüfen
If Err.Number<> 0 Then
    ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
    Err.Clear
    Exit Sub
End If

'Open or create a file - Öffnen bzw. Erstellen einer Datei
fo.open path,mode

'Check if any errors happend - Auf Fehler prüfen
If Err.Number<> 0 Then
    ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
    Err.Clear
    Exit Sub
End If'

'Daten in Datei schreiben
fo.LinePrint(...
fo.LinePrint(...
...

'Close the file - Datei wird geschlossen
fo.Close

'Release the Object - Objekt wird freigegeben
Set fo = Nothing

SmartTags("LogAktiv") = False

End Sub

 Hab mich für die Variante mit dem übergeordneten Ordner entschieden. Ist am einfachsten. Muss dann halt nur eine Ordnerebene mehr rein machen. seh ich jetz nicht als problem an.

Hab jetz mal den Anfang von den Datei-erzeugen-skript geändert, dass eine Ordnerebene mehr drin ist.

...
Dim fo            
Dim path
Dim mode
Dim trenn
Dim HV_time
Dim fs
Dim Ordner
Dim UOrdner
Dim Laufwerk

Laufwerk = "\Storage Card SD\LogDaten\"
Ordner = Year(Date)
UOrdner = MonthName(Month(Date))
 
' Create object for filesystem access
Set fs = CreateObject("filectl.filesystem")

If fs.dir(Laufwerk) = "" Then
    fs.mkdir(Laufwerk) ' Create folder
    fs.mkdir(Laufwerk & "\"  & Ordner) ' Create folder
    fs.mkdir(Laufwerk & "\"  & Ordner & "\" & UOrdner) ' Create folder
Else
    If fs.dir(Laufwerk & "\"  & Ordner) = "" Then
        fs.mkdir(Laufwerk & "\"  & Ordner) ' Create folder
           fs.mkdir(Laufwerk & "\"  & Ordner & "\" & UOrdner) ' Create folder
    Else
           If fs.dir(Laufwerk & "\"  & Ordner & "\" & UOrdner) = "" Then
            fs.mkdir(Laufwerk & "\"  & Ordner & "\" & UOrdner) ' Create folder
        End If
    End If
End If

' Deallocate filesystem object
Set fs = Nothing


HV_time = Time
HV_time=Replace(HV_time,":","_")
...

 Und so sieht das Ordner-verschieben-skript aus:

Sub folder_move()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
'  Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:
Dim fs
Dim OrtOrdner
Dim Ort
Dim Ziel
Dim HV_time
Dim HV_ZielOrdner

'Ordnername erzeugen
HV_time = Time
HV_time=Replace(HV_time,":","_")
HV_ZielOrdner = Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "__" & HV_time

' Welcher Ordner soll verschoben werden?
Ort = "\Storage Card SD\LogDaten\"

' Wohin soll der Ordner veschoben werden?
Ziel = "\Storage Card USB\" & HV_ZielOrdner & "\"


' Create object for filesystem access
Set fs = CreateObject("filectl.filesystem")

If Err.Number<> 0 Then
    ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
    Err.Clear
    Exit Sub
End If
 
' Vorgang starten
Set OrtOrdner = fs.GetFolder(Ort)

If Err.Number<> 0 Then
    ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
    Err.Clear
    Exit Sub
End If

' Ordner verschieben
OrtOrdner.Move Ziel

'Objekt freigegeben
Set fs = Nothing

End Sub

 Ausprobiert. Funktioniert nicht. -.-

Bei "Set OrtOrdner = fs.GetFolder(Ort)" kommt eine Fehlermeldung, dass GetFolder nicht unterstüzt wird.

Die Operation GetFolder gibt's bei FileCtl.Filesystem nicht. Also kann man Ordner nicht kopieren/verschieben.

Das bedeutet, dass der Quellpfad komplett analysiert werden muss, gefundene Ordnerstruktur muss auf dem Zielpfad neu angelegt werden und jede Datei muss einzeln und namentlich kopiert werden. Dateien kopieren funktioniert nämlich leider nicht mit Platzhaltern. Nach dem kopieren müssen alle Dateien aus dem Ordner gelöscht werden (funktioniert Gott sei dank mit Platzhaltern) und im Anschluß muss der Ordner gelöscht werden, weil Ordner nur gelöscht werden können, die leer sind.

Hier mal mein, für meine Zwecke geschriebene und funktionierende, Skript.

Sub move_folder()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
'  Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:

Dim PathSearch, Path, fsj, fsm, fsd, fsz, fsDel, ResJahr, ResMonat, ResDatei, i, j, k, OrdnerName, HV_Time, Ort, Ziel, ZielPfad1, ZielPfad2

SmartTags("datasave") = True  ' panelinterne Variable setzen (für etwaige Meldungen)

Set PathSearch = CreateObject("FileCtl.FileSystem")

'USB-Stick suchen
'----------------

Path = "Storage Card USB"

ShowSystemAlarm "Suche USB-Stick"

HV_Time = Time
HV_Time = Replace(HV_Time,":","_")  ' Doppelpunkte in Uhrzeit durch Unterstriche ersetzen

OrdnerName = Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "__" & HV_Time
' neuen Ordnername mit Datum und Zeit als Name erzeugen, dass ggf.
' vorhandene Daten auf dem Zielpfad nicht überschrieben werden

For i = 1 To 30000     'für 30k Zyklen auf USB-Stick warten    
    If  PathSearch.Dir("\" & Path) = "" And i >= 30000 Then
        ShowSystemAlarm "USB-Stick nicht gefunden!"
        SmartTags("datasave") = False
        Exit Sub
      ElseIf PathSearch.Dir("\" & Path) = Path Then     'Gefunden!
        ShowSystemAlarm "Datenübertragung gestartet"
        Exit For
    End If
Next

'CSV-Daten in Struktur \Jahr\Monat\ im Quellpfad suchen und nach Zielpfad kopieren, ggf. Ordnerstruktur auf Zielpfad anlegen
'-------------------------------------------------------------------------        

'Datenübertragung gestartet
Set fsj = CreateObject("FileCtl.FileSystem")
Set fsm = CreateObject("FileCtl.FileSystem")
Set fsd = CreateObject("FileCtl.FileSystem")
Set fsz = CreateObject("FileCtl.FileSystem")
Set fsDel = CreateObject("FileCtl.FileSystem")

ResJahr = fsj.Dir("\Storage Card SD\LogDaten\*")        'Suchen nach Jahresordnern

ShowSystemAlarm "OrdnerName: " & OrdnerName
'Suche nach Jahresordnern
If ResJahr = "" Then 'ersten Ordner suchen
      ShowSystemAlarm "Keine Daten vorhanden"'Text:Keine Ordner vorhanden
Else
    'erster gefundener Ordner
    ShowSystemAlarm "Ordner " & ResJahr & " gefunden"
    
    ZielPfad1 = fsz.dir("\" & Path & "\LogDaten")
    
    If ZielPfad1 = "" Then    'Ordner gefunden
        fsz.mkdir("\" & Path & "\LogDaten") ' Ordnerstruktur auf Zielpfad anlegen
        ShowSystemAlarm "Ordner \" & Path & "\LogDaten angelegt"
        
        fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName) ' Ordnerstruktur auf Zielpfad anlegen
        ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & " angelegt"
        
        fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr) ' Ordnerstruktur auf Zielpfad anlegen
        ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & " angelegt"
    Else
        ZielPfad2 = fsz.dir("\" & Path & "\LogDaten\" & OrdnerName)
        
        If ZielPfad2 = "" Then
            fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName) ' Ordnerstruktur auf Zielpfad anlegen
            ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & " angelegt"
            
            fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr) ' Ordnerstruktur auf Zielpfad anlegen
            ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & " angelegt"
        End If            
    End If
    
    ResMonat = fsm.Dir("\Storage Card SD\LogDaten\" & ResJahr & "\*")    'Suche nach Monatsordnern
    
    If ResMonat = "" Then    ' kein Monatsordner gefunden
        ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr
        
        fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr)    ' Jahresordner von Quellpfad löschen
        ShowSystemAlarm "Ordner " & ResJahr & " löschen"
        
    Else    ' Monatsordner gefunden
        ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " gefunden"
        
        If fsz.dir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) = "" Then
            fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) ' Monatsordner in Jahresordner anlegen
            ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & " angelegt"
        End If
        
        'Suche nach Dateien
        ResDatei = fsd.dir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.csv")
                
        If ResDatei = "" Then    ' keine Datei im Monatsordner gefunden
            ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
            
            fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)    ' Monatsordner löschen
            ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
            
        Else
            'erste Datei im Monatsordner gefunden
            ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
            
            ' Quell- und Zielpfad generieren
            Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
            Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
            
            fsz.FileCopy Ort,Ziel    ' Datei zum Zielpfad kopieren
            ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
            
            For i = 1 To 2000    ' nach 2000 weiteren Dateien im Monatsordner suchen
                  ResDatei = fsd.Dir()        'Suchen nach weiteren Dateien
                  If ResDatei = "" Then    ' keine weitere Datei gefunden
                    ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                    
                    fsDel.Kill("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.*")    ' alle Dateien aus Quellpfad löschen
                    ShowSystemAlarm "Dateien in Ordner " & ResJahr & "\" & ResMonat & " löschen"
                      
                      fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)    ' Monatsordner von Quellpfad löschen
                    ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                      
                      Exit For
                 Else    ' weitere Datei im Monatsordner gefunden
                       ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                       
                       ' Quell- und Zielpfad generieren
                       Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                    Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                    
                    fsz.FileCopy Ort,Ziel    ' Datei zum Zielpfad kopieren
                    ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                End If    
            Next
        End If
        
        For i = 1 To 12    ' nach weiteren Monatsordnern suchen
              ResMonat = fsm.Dir()        'Suchen nach weiteren Monatsordnern
              If ResMonat = "" Then    ' keine weiteren Monatsordner gefunden
                ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr
                
                fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr)    ' Jahresordner löschen
                ShowSystemAlarm "Ordner " & ResJahr & " löschen"
                
                  Exit For
             Else    ' weiterer Monatsordner gefunden
                   ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " gefunden"
                   
                   If fsz.dir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) = "" Then
                    fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) ' Monatsordner in Jahresordner anlegen
                    ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & " angelegt"
                End If
                   
                   'Suche nach Dateien
                   ResDatei = fsd.dir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.csv")
        
                If ResDatei = "" Then ' keine Datei gefunden
                    ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                    
                    fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)    ' Monatsordner von Zielpfad löschen
                    ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                    
                Else
                    'erste Datei gefunden
                    ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                    
                    ' Quell- und Zielpfad generieren
                    Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                    Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                    
                    fsz.FileCopy Ort,Ziel    ' Datei zum Zielpfad kopieren
                    ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                    
                    For j = 1 To 2000    ' nach 2000 weiteren Dateien suchen
                          ResDatei = fsd.Dir()        'Suchen nach weiteren Dateien
                          If ResDatei = "" Then    ' keine weitere Datei gefunden
                            ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                            
                            fsDel.Kill("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.*")    ' alle Dateien im Monatsordner löschen
                            ShowSystemAlarm "Dateien in Ordner " & ResJahr & "\" & ResMonat & " löschen"
                            
                            fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)            ' Monatsordner löschen
                            ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                            
                              Exit For
                         Else    ' weitere Datei gefunden
                               ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                               
                               ' Quell- und Zielpfad generieren
                               Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                            Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                            
                            fsz.FileCopy Ort,Ziel    ' Datei zum Zielpfad kopieren
                            ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                        End If    
                    Next
                End If
            End If    
           Next
    End If
    
      For i = 1 To 1000    ' nach 1000 weiteren Jahresordnern suchen... Rest siehe oben
           ResJahr = fsj.Dir()        'Suchen nach weiteren Jahresordnern
          If ResJahr = "" Then
            ShowSystemAlarm "Ende der Übertragung"
            Exit For
         Else
               ShowSystemAlarm "Ordner " & ResJahr & " gefunden"
               
               If fsz.dir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr) = "" Then
                fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr) ' Monatsordner in Jahresordner anlegen
                ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & " angelegt"
            End If
               
               ResMonat = fsm.Dir("\Storage Card SD\LogDaten\" & ResJahr & "\*")    'Suche nach Monatsordnern
    
            If ResMonat = "" Then
                ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr
                
                fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr)
                ShowSystemAlarm "Ordner " & ResJahr & " löschen"
                
            Else
                ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " gefunden"
                
                If fsz.dir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) = "" Then
                    fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) ' Monatsordner in Jahresordner anlegen
                    ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & " angelegt"
                End If
                
                'Suche nach Dateien
                ResDatei = fsd.dir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.csv")
                
                If ResDatei = "" Then
                    ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                    
                    fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)
                    ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                    
                Else
                    'erste Datei gefunden
                    ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                    
                    Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                    Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                            
                    fsz.FileCopy Ort,Ziel
                    ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                    
                    For j = 1 To 2000
                          ResDatei = fsd.Dir()        'Suchen nach weiteren Dateien
                          If ResDatei = "" Then
                            ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                            
                            fsDel.Kill("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.*")
                            ShowSystemAlarm "Dateien in Ordner " & ResJahr & "\" & ResMonat & " löschen"
                            
                            fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)
                            ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                            
                              Exit For
                         Else
                               ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                               
                               Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                            Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                                    
                            fsz.FileCopy Ort,Ziel
                            ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                        End If    
                    Next
                End If
                
                For j = 1 To 12
                      ResMonat = fsm.Dir()        'Suchen nach weiteren Monatsordnern
                      If ResMonat = "" Then
                        ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr
                        
                        fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr)
                        ShowSystemAlarm "Ordner " & ResJahr & " löschen"
                        
                          Exit For
                     Else
                           ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " gefunden"
                           
                           If fsz.dir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) = "" Then
                            fsz.mkdir("\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat) ' Monatsordner in Jahresordner anlegen
                            ShowSystemAlarm "Ordner \" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & " angelegt"
                        End If
                           
                           'Suche nach Dateien
                           ResDatei = fsd.dir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.csv")
                
                        If ResDatei = "" Then
                            ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                            
                            fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)
                            ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                            
                        Else
                            'erste Datei gefunden
                            ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                            
                            Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                            Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                                    
                            fsz.FileCopy Ort,Ziel
                            ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                            
                            For k = 1 To 2000
                                  ResDatei = fsd.Dir()        'Suchen nach weiteren Dateien
                                  If ResDatei = "" Then
                                    ShowSystemAlarm "Keine weiteren Daten in Ordner " & ResJahr & "\" & ResMonat
                                    
                                    fsDel.Kill("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\*.*")
                                    ShowSystemAlarm "Dateien in Ordner " & ResJahr & "\" & ResMonat & " löschen"
                            
                                    fsDel.RmDir("\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat)
                                    ShowSystemAlarm "Ordner " & ResJahr & "\" & ResMonat & " löschen"
                                    
                                      Exit For
                                 Else
                                       ShowSystemAlarm "Datei " & ResJahr & "\" & ResMonat & "\" & ResDatei & " gefunden"
                                       
                                       Ort = "\Storage Card SD\LogDaten\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                                    Ziel = "\" & Path & "\LogDaten\" & OrdnerName & "\" & ResJahr & "\" & ResMonat & "\" & ResDatei
                                            
                                    fsz.FileCopy Ort,Ziel
                                    ShowSystemAlarm ResJahr & "\" & ResMonat & "\" & ResDatei & " übertragen"
                                End If    
                            Next
                        End If
                    End If    
                   Next
            End If
               
         End If    
       Next
End If

'Please replace all sequences which are enclosed with '_' by your own code.
Set PathSearch = Nothing
Set fsj = Nothing
Set fsm = Nothing
Set fsd = Nothing
Set fsz = Nothing
Set fsDel = Nothing

SmartTags("datasave") = False

End Sub

 Sicher kann man dieses Skript noch um mehrere Ordnerebenen erweitern und ggf. nicht nur in der untersten Ordnerebene nach Dateien suchen. Mit jeder Ordnerebene verdoppelt siche aber die Länge des Skripts.

Ich hoffe, ich habe alles ausreichend gut kommentiert, dass auch andere mit ähnlichen Problemen unter Win CE damit was anfangen können. Am besten komplett kopieren und im Skript-Editor von WinCC im  TIA Portal einfügen. Dann kann man das viel besser lesen.

Gruß

ling

Hallo,

schade das das mit MoveFolder nicht geht, wundert mich aber...

Alternativ könnte man auch eine Batch-Datei anlegen, in der der Basisordner verschoben wird, die dann mit "StarteProgramm" aufgerufen wird.

Da hat man dann halt keine Rückmeldung, ob es geklappt hat.

Mfg

mm76

Das Problem mit dem GetFolder und MoveFolder ist, dass das nur mit Scripting.FileSystemObject geht. Und im WinCC kann man das auch in's Skript einfügen und übersetzen, ohne das WinCC murrt. Wenn man dann die Runtime mit einem Rechner simuliert geht das sogar. Nur auf einem Win CE Panel nicht, weil das Scripting.FileSystemObject nicht unterstützt.

Mit Batch-Dateien kenn ich mich leider nich aus. :(

Noch ne kleine Anmerkung zu dem "Mega"-Skript da oben.

Hab das mit einer Testordnerstruktur getestet. Mit 3 Jahresordnern mit je 2 Monatsordnern und pro Monatsordner waren 7 csv-Dateien drin.

Damit hat das ca. 3min gedauert. Wobei aber scheinbar nicht das Kopieren sondern das Löschen zu einer extremen Zeitverzögerung geführt hat.