VBScript HILFE!!!!!!!!!!!!!!!

Gast · 18. Februar 2003, 17:34

Hallo ihr!

Ich hoffe ihr könnt mir helfen! Ich brauche ganz dringend Hilfe bei einem Programm. Es soll die Dateien aus einem Ordner in mehreren Läufen einlesen. Die sollen dann verglichen werden. Die Dateien die seit dem letzten Durchlauf neu dazugekommen sind, sollen dann ausgegeben werden.

Ich hab gar keine Ahnung von VBScript und muss das Ding morgen haben. Wär für jede Hilfe dankbar.

Am liebsten direkt nen fertigen Code.

LG

Die Kleene

Marcus Gräfe · 18. Februar 2003, 18:09

Ich weiß zwar nicht, ob man den folgenden Code in VBScript benutzen kann, in VB funktioniert er aber. Er liefert im Moment aber nur zurück, ob sich die Dateianzahl geändert hat. Mehr habe ich auf die schnelle nicht geschafft.

<pre>Option Explicit

Private Declare Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long

Private Const MAX_PATH As Long = 260

Private Declare Function FindNextFile Lib "kernel32" Alias _
"FindNextFileA" (ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long) As Long

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
<HR>

Private Sub Vergleiche()
Dim fd As WIN32_FIND_DATA
Dim h As Long
Dim c1 As Collection
Dim c2 As Collection

Set c1 = New Collection
Set c2 = New Collection

h = FindFirstFile("C:\*.*", fd)
If h <> 0 Then
Do
c1.Add fd.cFileName
Loop Until FindNextFile(h, fd) = 0
End If
FindClose h

MsgBox "OK drücken für zweiten Durchlauf..."

fd.dwFileAttributes = 0
h = FindFirstFile("C:\*.*", fd)
If h <> 0 Then
Do
c2.Add fd.cFileName
Loop Until FindNextFile(h, fd) = 0
End If
FindClose h

If c1.Count <> c2.Count Then
MsgBox "Dateianzahl hat sich geändert"
End If

Set c1 = Nothing
Set c2 = Nothing
End Sub

</pre>

Gast · 18. Februar 2003, 18:22

Ist super lieb von dir!!!

Funktioniert aber leider unter VBS nicht.

Trotzdem DANKE!!

Marcus Gräfe · 18. Februar 2003, 19:09

Was davon funktioniert denn unter VBS nicht? Die APIs? Oder was anderes? Ich weiß garnicht genau, wie VB Scripts aufgebaut sein müssen.

VBScript HILFE!!!!!!!!!!!!!!!

VBScript HILFE!!!!!!!!!!!!!!!

Ähnliche Themen

2 Benutzer haben hier geschrieben