Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: 46 dateien im orddner. davon immer -1?
Autor: Gamer20
Datum: 21.06.04 14:00
hmm leider klappt das net so, der springt immer gleich auf 100 % wie muß ich den code für den progressbar so rein setzen das es klappt? ' so lasse ich die anzahl der dateien ermitteln: Private Sub Command1_Click() FindFile xpDrive1.Drive, True, "*.exe", Dateien For I = 0 To UBound(Dateien) List4.AddItem Dateien(I).Dateiname Next I FindFile xpDrive1.Drive, True, "*.dll", Dateien For I = 0 To UBound(Dateien) List4.AddItem Dateien(I).Dateiname Next I FindFile xpDrive1.Drive, True, "*.dat", Dateien For I = 0 To UBound(Dateien) List4.AddItem Dateien(I).Dateiname Next I ........... With nSearch .sSearchpath = xpDrive1.Drive ' Suchpfad .sFileToFind = "*.exe" ' Suchnamen .sFileFlag = FILE_ATTRIBUTE_ALLTYPES ' Dateiattribute .sInclSubfolders = True ' Subdirs durchsuchen ' Suche starten Screen.MousePointer = 13 .sStartSearch Screen.MousePointer = 0 End With With nSearch .sSearchpath = xpDrive1.Drive ' Suchpfad .sFileToFind = "*.dll" ' Suchnamen .sFileFlag = FILE_ATTRIBUTE_ALLTYPES ' Dateiattribute .sInclSubfolders = True ' Subdirs durchsuchen ' Suche starten Screen.MousePointer = 13 .sStartSearch Screen.MousePointer = 0 End With end sub ' und hier dann die funktion mit der ich den quellcode durchsuchen lasse: Private Sub nSearch_MatchFound(ByVal sFilename As String, _ ByVal sFilePath As String, _ ByVal sFiledate As Date, _ ByVal sFilesize As Long, _ ByVal sLastAccess As Date, _ ByVal sLastWrite As Date, _ ByVal sShortName As String) On Error Resume Next suche = sFilePath & sFilename ........ If InStr(1, erg, "4.72") > 0 Then .......... End If usw.! end sub

46 dateien im orddner. davon immer -1?	369	Gamer20	21.06.04 13:09
Re: 46 dateien im orddner. davon immer -1?	306	Dieter	21.06.04 13:20
Re: 46 dateien im orddner. davon immer -1?	270	Gamer20	21.06.04 14:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen