TIA Advanced (Win7-PC) Dateizugriff Umsetzung von CE auf PC

NBerger

Level-3
Beiträge
1.373
Reaktionspunkte
386
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo... habe da mal ein Problem...

Realisiere derzeit für CE-Panels meine Rezepturverwaltung über Dateien auf SD bzw USB.

Habe jetzt erstmals ein PC (Win7)
Die Scriptbefehle unterscheiden sich von CE, hab ich begriffen. Finde aber in der Hilfe keine Hilfe...

Wie müssen die Befehle denn nun aussehen, Dateien auflisten (CE: Name = f.dir(Path_1) / PC: ?)

Kann mir da jemand weiterhelfen?
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Vieleicht bin ich ja einfach zu blöde, aber das hilft mir nicht weiter...

unter CE habe ich ein "f.dir(Path)" das mir einen Dateinamen aus dem angegebenen Verzeichnis liefert.

Gibt es unter Windows denn nichts änliches um mal festzustellen welche dateien in einem Verzeichnis sind ?

Das kann doch echt nicht war sein
 
Für ein erstes Lernen der VBS-Programmierung würde ich Dir WinCC flexible 2008 empfehlen, da ist eine vorzügliche VBS-Hilfe+Referenz enthalten und auch gut in den Skript-Editor integriert.
In dem Giga-Paket TIA WinCC war wohl kein Platz mehr für nützliche Dinge oder das Microsoft-Design hat den TIA-Designern nicht gefallen ... ;)

Welche VBS-Informationen und VBS-Programmierhilfen gibt es in WinCC (TIA Portal)?

Im WinCC flexible Information System war eine komplette VBS-Referenz (Microsoft Visual Basic Scripting Edition) voll integriert:
- VBScript-Benutzerhandbuch
- VBScript-Sprachverzeichnis
- Scripting-Laufzeitreferenz

Hier kann man sich eine "Windows Script Host Referenz" als CHM-Hilfedatei herunterladen, diese enthält auch die VBScript-Referenzen wie bei WinCCflex.

siehe auch mal Tipps und Tricks für das Erstellen von Skripten in WinCC (TIA Portal)

Für Vergleich VBS für WinCE und PC kann Dir die Forumssuche helfen z.B.: VBS csv dir FileSystemObject ...
In dem von volker verlinkten FAQ sind weiter unten auch ein paar kleine Skripte mit direkter Gegenüberstellung WinCE/PC

Entsprechungen zur WinCE-Dir-Methode:
- FileExists (eine bestimmte Datei existiert?)
- FolderExists (ein bestimmter Ordner existiert?)
- GetFolder --> Files --> Files-Auflistung aller Dateien in einem Ordner
- GetFolder --> SubFolders --> Folders-Auflistung aller Unterordner in einem Ordner

Harald
 
Funktionieren tut erstmal folgendes...

Code:
        Set fs= CreateObject("Scripting.FileSystemObject")
   
  ...
        
        Datei = ".Prg"
        Set f = fs.GetFolder(Verzeichnis)
        Set fc = f.Files
    
        For i = 1 To 999        ' Ablöschen der alten Liste
            Liste(i) = ""
            LAttr(i) = False
        Next
        cnt_Liste = 0
        For Each  f1 In fc        ' Liste neu aufbauen
            s = f1.Name
            If InStr (1,s,Datei) > 0 Then
            cnt_Liste = cnt_Liste + 1 
            Liste(cnt_Liste) = Replace (s,Datei,"")
            LAttr(cnt_Liste) =  f1.Attributes And 1
            End If
        Next
 
Zurück
Oben