Ordner vergleichen. FSO

Computer: Software & Programmierung Visual Basic
#21

Hi Joe,

Es funktioniert wie folgt:
Ich habe text für den Ordnername & Datex für das
ÄnderungsDatum.

Ja, hab’ ich gesehen. Das unterstützt mein Beispiel ja so auch.

Muss aber jetzt pennen… habe noch 5 1/2 Std schlaf offen.

Ich noch 4 1/2. Drei Stunden müssen reichen. :smile: Ich bin erst 13.00 aufgestanden. :smile:

Hast du zufällig mal ein Hello World Programm für Windows CE
Also Windows Mobile 5 gesehen oder geschrieben ?

Nein, damit habe ich mich noch nicht befasst, ich habe nichts, wo so etwas läuft.

Gruß, Rainer

#22

Moin Schoin,
ja, ich bin späät dran( kann mich nicht losreissen )

WO mache ich hier nen Fehler?
Objekt required ( Set PathObject = MyFSO.GetFolder(ScanPfad)

Sub ScanDir(ScanPfad)

Dim MyFSO
Dim ff As Integer
Dim Textx(99999) As String
Dim Datex(99999) As String
Dim textvar As String
Dim textdate As String
Dim Prüfx As String
Dim Prüfd As String
Dim n As Integer

Dim PathObject, SubFolders, SubFoldersNow
Set PathObject = MyFSO.GetFolder(ScanPfad)
Set SubFolders = PathObject.SubFolders
For Each SubFoldersNow In SubFolders
If Left(SubFoldersNow.Name, 4) = „Link“ Or Mid(SubFoldersNow.Name, 5, 1) = „-“ Then
Prüfd = (SubFoldersNow.Name)
Prüfx = SubFoldersNow.DateLastModified
End If
ff = FreeFile
Open „D:\test.txt“ For Input As #ff
While Not EOF(ff)
Line Input #ff, textvar
Line Input #ff, textdate
Textx(n) = textvar
Datex(n) = textdate

Select Case Prüfd
Case Textx(n)
If Datex(n) Prüfx Then
List1.AddItem Textx(n) & Datex(n) & „JEHA“
Else
End If

Case Else
List1.AddItem Textx(n) & Datex(n) & „JEHA Else“
End Select
n = n + 1
Wend

Close #ff
ScanDir (SubFoldersNow.ParentFolder + „“ + SubFoldersNow.Name)
Next
End Sub

Bis Später

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#23

Hi Joe,

Du hast eine Zeile vergessen:

Set MyFSO = CreateObject("Scripting.FileSystemObject")

Gruß, Rainer

#24

A hoi Rainer,
nach arbeitsreichen Wochen habe ich nun wieder etwas zeit für VB gefunden. Nachdem ich mich 1 Stunde in den Quelltext reingelesen habe sind mir meine Probleme wieder bekannt :stuck_out_tongue:
Ich habe das Programm nun soweit des es alle Unterordner durchsucht und mir immer nur von dem Ordner „01_Abnhame“ das änderungsdatum anzeigt. Das sind die Ordner wo tatsächlich datein drinliegen die verändertwerden. Nun habe ich eine TXT datei die immer abwächselnd OrdnerPfad und Änderungsdatum anzeigt. Ich kann Pfad und Datum getrennt auslesen also alles in eigene Variablen.

und nun müsste ich das irgendwie mit dem ORnderauf dem anderen PC Vergleichen …
D:\testordner\53\0001-0025\Link 0006\01_Abruf
Eindeutig ist der der Ordner vor dem Abruf Ordner also Link 0006
Der LinkOrdner enthält nich 2 andere Ordner die aber nicht wichtig sind ich brauche nur eine Prüfung des 01_Abruf.

Ich kann doch eine Prüfung machen ob in dem Pfad das Wort Link steht und wenn ja muss das mit den nächsten 5 stellen in eine Variable.
Nun mache ich den scanvorgang am „Server“ und wenn der Gescannte Ordner auch bei dem Abruf ORdner Link xxxx hat solle er diese beiden prüfen …

kannst du mich verstehen :stuck_out_tongue: ??

mfg Jonny

Private Sub Command1_Click()
Set MyFSO = CreateObject(„Scripting.FileSystemObject“)
ff = FreeFile
Open „D:\Test.txt“ For Output As #ff
ScanDir („D:\testordner“)
Close #ff
Command1.Caption = „Fertig“
End Sub

Sub ScanDir(ScanPfad)
Dim PathObject, SubFolders, SubFoldersNow

Set PathObject = MyFSO.GetFolder(ScanPfad)

Set SubFolders = PathObject.SubFolders
For Each SubFoldersNow In SubFolders
If Left(SubFoldersNow.Name, 8) = „01_Abruf“ Then
Print #ff, (SubFoldersNow.ParentFolder + „“ + SubFoldersNow.Name)
Print #ff, SubFoldersNow.DateLastModified
End If
ScanDir (SubFoldersNow.ParentFolder + „“ + SubFoldersNow.Name)

Next
End Sub