XProfan

declare h&
cls
h&=createlistbox(%hwnd,»,10,10,400,200)
chdir "C:\lol"
external("addfiles.dll","AddFiles","*.*",h&,1)
external("addfiles.dll","AddDirs","*.*",h&,1)
external("addfiles.dll","AddFilesEx","*.*",h&,1)

tandis que 1

    waitinput

Wend

AddFiles(masque$,ListboxHandle&,Recursion%)
AddDirs(masque$,ListboxHandle&,Recursion%)
AddFilesEx(masque$,ListboxHandle&,Recursion%)// liefert Dateiname*Taille*Zeit
SetProc(procAddr(myProc,1))
SetMsg(msgID)

myProc(long _in){

    string s=string$(_in,0)
    imprimer s

}

Suche bestimmten Ordner auf allen vohandenen und bereiten Laufwerken
Def GetLogicalDrives(0) ! KERNEL32, GetLogicalDrives
Def GetDriveType(1) ! KERNEL32, GetDriveTypeA
Def GetVolumeInformation(8) !KERNEL32,GetVolumeInformationA
Def SetErrorMode(1) !KERNEL32,SetErrorMode
Def ext.addfiles(3) !addfiles.dll, AddFiles
DEF ext.addfilesex(3) !addfiles.dll, AddFilesEx
Def ext.adddirs(3) !addfiles.dll, AddDirs
declare drives&, lw$,Drives$[31],N%,DRV$
declare H&,H0&,H1&,H2&,I%,j%,font&,dll&,mode&,SUCHORDNER$,SUCHFILE$
declare buffer#, dirbuf#, H$
dim buffer#, 4
font&=Create(Font,tahoma,14,0,1,0,0)
dll&=usedll(addfiles.dll)

Proc CheckDrive  Test auf Laufwerk bereit (Disk, CD/DVD eingelegt ?)

    Parameters drive$
    Declare result&,olderrormode&,dw1&,dw2&
    Let olderrormode&=SetErrorMode(1)
    Let drive$=Upper$(Mid$(drive$,1,1))+:
    Dim dirbuf#,Len(drive$)+2
    String dirbuf#,0=drive$
    Let result&=GetVolumeInformation(dirbuf#,0,0,0,Addr(dw1&),Addr(dw2&),0,0)
    SetErrorMode(olderrormode&)
    Dispose dirbuf#
    Return result&

EndProc

Proc ReadyDrives$

    Declare DRV$
    drives& = GetLogicalDrives()

    whileloop 0, 31

        Prüfen ob Laufsbuchstabe vergeben

        if TestBit(drives&, &loop)

            lw$ = Chr$(&loop + 65) + :
            string buffer#, 0 = lw$
            Drives$[n%] = LW$ : Inc N%

        endif

    endwhile

    dispose buffer#
    Dec N%
    DRV$ =

    WhileLoop 0, N%

        Case CheckDrive(Drives$[&loop])=1 : DRV$ = DRV$ + Drives$[&loop] + |

    EndWhile

    N% = len(DRV$)/4
    DRV$=DRV$+Right$(0+STR$(N%),2)
    Return DRV$

EndProc

cls
H& = Create(ListBox,%HWND,1,10,20,200,150)
H0& = Create(ListBox,%HWND,1,216,20,200,150)
H1& = Create(ListBox,%HWND,1,422,20,200,150)
H2& = Create(ListBox,%HWND,1,10,190,612,200) : SetFont H2&,Font&
DRV$=ReadyDrives$()
SuchOrdner$=DESITRONBKPFILES
SuchOrdner$=Upper$(SuchOrdner$)
SuchFile$=SMC_adress.bkp
Suchfile$=Upper$(Suchfile$)

WhileLoop 1,1  1. Laufwerk C: (A: ohne Disk, B: nicht vorhanden)   Val(Right$(DRV$,2))

    Clearlist H& : Clearlist H0& : Clearlist H1&
    print Druchsuche Laufwerk +SubStr$(DRV$,&loop,|);
    ChDir SubStr$(DRV$,&loop,|)+
    ext.adddirs(*.*,H&,1)
    N% = Getcount(H&)
    print   - > +STR$(N%)+ Ordner vorhanden, wovon ;
    waitinput  Nur zum Test, um zu sehen, ob erste LBOX korr. gefüllt wird!
    N% = 0

    WhileLoop GetCount(H&)

        If INSTR(SUCHORDNER$,UPPER$(GetString$(H&,N%)))

            CaseNot INSTR(SUCHORDNER$+,UPPER$(GetString$(H&,N%))): Addstring(H0&,GetString$(H&,N%))

        EndIf

        inc N%

    EndWhile

    N% = Getcount(H0&)
    Print Str$(N%)+ +SuchOrdner$

    If GetCount(H0&)

        N% = 0

        WhileLoop GetCount(H0&)

            ChDir GetString$(H0&,N%)
            ext.addfiles(*.*,H1&,1)
            inc N%

        Endwhile

    Endif

    Print Dieser enthält +Str$(GetCount(H1&))+Dateien ;

    If GetCount(H1&)

        N% = 0

        WhileLoop GetCount(H1&)

            Case InStr(SuchFile$,Upper$(GetString$(H1&,N%))) : AddString(H2&,GetString$(H1&,N%))
            INC N%

        EndWhile

        Print wovon +STR$(GetCount(H2&))+ +Suchfile$

    EndIf

    print

EndWhile

If GetCount(H2&)

    H$=GetString$(H2&,0)
    Print SubStr$(H$,-1,)

endif

Print fertig
WAITINPUT
deleteobject Font&