|
| Autor |
Nachricht |
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Alle *.exe Files im Ordner suchen
Verfasst am: 18.07.2008, 18:13 |
|
|
| Wie kann ich nach alle *.exe Files in einem Ordner suchen?Am besten sollten dir Unterordner auch durchsucht werden |
|
| |
|
 |
RedShark
Poster
Anmeldedatum: 01.07.2008
Beiträge: 145
|
Verfasst am: 18.07.2008, 18:19 |
|
|
Hi, das geht so: (allerdings ohne unterordner!)
Vorbereitung:
lstFiles - ListBox auf das Formular
Code:
Visual Basic: [code]Sub SearchFiles(strPath as String)
Dim XLen As Integer
XLen = Len(strPath)
XFilename = "*.exe"
frmmain.lstFiles.Clear
Get_Files strPath
List_Files strPath
End Sub
Private Sub Get_Files(FPath As String)
On Error Resume Next
Dim File_Name As String
Dim File_Path As String
Dim File_Read As Integer
Dim X As Boolean
Dim I As Integer
File_Path = FPath
File_Name = Dir$(File_Path, vbDirectory)
File_Read = 1
X = False
Do While File_Name <> ""
File_Name = Dir$
File_Read = File_Read + 1
Loop
End Sub
Private Sub List_Files(strPath As String)
On Error GoTo ende
Dim XIndex As Integer
Dim XName As String
Dim X_Filename As String
For XIndex = 1 To 1
XName = strPath & XFilename
X_Filename = Dir(XName)
nochma:
If Right(X_Filename, 4) = ".exe" Then
If X_Filename <> "" Then
frmmain.lstFiles.AddItem X_Filename
Do While True
X_Filename = Dir
On Error GoTo exit_loop
If X_Filename <> "" Then
frmmain.lstFiles.AddItem X_Filename
Else
Exit Do
End If
Loop
End If
exit_loop:
Else
X_Filename = Dir
GoTo nochma
End If
Next XIndex
ende:
End Sub
[/code]
Verwendung:
SearchFiles
Beispiel:
SearchFiles "C:" |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 18.07.2008, 18:26 |
|
|
| Mir werden da irgendwie alle files von meim VB6 Ordner angezeigt^^ |
|
| |
|
|
RedShark
Poster
Anmeldedatum: 01.07.2008
Beiträge: 145
|
Verfasst am: 18.07.2008, 18:34 |
|
|
| probiers nochmal ich hab den code aktualisiert! |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 18.07.2008, 18:44 |
|
|
Thx jetzt geds
Aber wie mach ich das jetzt mit den Unterordnern? |
|
| |
|
|
RedShark
Poster
Anmeldedatum: 01.07.2008
Beiträge: 145
|
Verfasst am: 18.07.2008, 18:46 |
|
|
Da kann ich dich auf die folgende Seite verweisen ist allerdings ein bisschen schwieriger...
http://www.vbarchiv.net/tipps/tipp_126.html
Allerdings um wirklich was zu lernen solltest du dich erstmal selber dransetzen... |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 18.07.2008, 19:34 |
|
|
Was gibts denn alles bei Environ() ?
systemroot
windir
... |
|
| |
|
|
RedShark
Poster
Anmeldedatum: 01.07.2008
Beiträge: 145
|
|
| |
|
|
Registrieren
Login
