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

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

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

    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. :D

    LG

    Die Kleene
    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><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Option</FONT> <FONT COLOR=#000080>Explicit</FONT>

    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> FindFirstFile <FONT COLOR=#000080>Lib</FONT> "kernel32" <FONT COLOR=#000080>Alias</FONT> _
    "FindFirstFileA" (<FONT COLOR=#000080>ByVal</FONT> lpFileName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
    lpFindFileData <FONT COLOR=#000080>As</FONT> WIN32_FIND_DATA) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Const</FONT> MAX_PATH <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = 260

    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> FindNextFile <FONT COLOR=#000080>Lib</FONT> "kernel32" <FONT COLOR=#000080>Alias</FONT> _
    "FindNextFileA" (<FONT COLOR=#000080>ByVal</FONT> hFindFile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
    lpFindFileData <FONT COLOR=#000080>As</FONT> WIN32_FIND_DATA) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> FindClose <FONT COLOR=#000080>Lib</FONT> "kernel32" _
    (<FONT COLOR=#000080>ByVal</FONT> hFindFile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Type</FONT> FILETIME
    dwLowDateTime <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    dwHighDateTime <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    <FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Type</FONT>

    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Type</FONT> WIN32_FIND_DATA
    dwFileAttributes <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    ftCreationTime <FONT COLOR=#000080>As</FONT> FILETIME
    ftLastAccessTime <FONT COLOR=#000080>As</FONT> FILETIME
    ftLastWriteTime <FONT COLOR=#000080>As</FONT> FILETIME
    nFileSizeHigh <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    nFileSizeLow <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    dwReserved0 <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    dwReserved1 <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    cFileName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT> * MAX_PATH
    cAlternate <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT> * 14
    <FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Type</FONT>
    <FONT COLOR=#808080><HR></FONT>


    <FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Vergleiche()
    <FONT COLOR=#000080>Dim</FONT> fd <FONT COLOR=#000080>As</FONT> WIN32_FIND_DATA
    <FONT COLOR=#000080>Dim</FONT> h <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
    <FONT COLOR=#000080>Dim</FONT> c1 <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Collection</FONT>
    <FONT COLOR=#000080>Dim</FONT> c2 <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Collection</FONT>

    <FONT COLOR=#000080>Set</FONT> c1 = <FONT COLOR=#000080>New</FONT> <FONT COLOR=#000080>Collection</FONT>
    <FONT COLOR=#000080>Set</FONT> c2 = <FONT COLOR=#000080>New</FONT> <FONT COLOR=#000080>Collection</FONT>

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

    MsgBox "OK dr&uuml;cken f&uuml;r zweiten Durchlauf..."

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

    <FONT COLOR=#000080>If</FONT> c1.Count <> c2.Count <FONT COLOR=#000080>Then</FONT>
    MsgBox "Dateianzahl hat sich ge&auml;ndert"
    <FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>

    <FONT COLOR=#000080>Set</FONT> c1 = <FONT COLOR=#000080>Nothing</FONT>
    <FONT COLOR=#000080>Set</FONT> c2 = <FONT COLOR=#000080>Nothing</FONT>
    <FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

    </FONT></pre>
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()