VB scanning – Visual Basic – Fórum – Programujte.com

Nahodou neexistuje nejaky prikaz do VB a prescanoval PC. Potrebujem najst program.exe a program2.exe a potom ich zmazat. A ak sa to bude dat tak by som chcel este pozaidat o prikaz aby textbar ukazoval zlozky ktore scanuje.

Pro prohledávání PC snad není přímo jednoduchý příkaz. Já např. používám toto :

Public U as string, T as string

Public Sub Nacti_Slozku()
Dim fso As Object, fl As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fl = fso.GetFolder(Slozka)
'slozka musí být ukončena obráceným lomítkem, např. C:\Program Files\
ListDisk fl
End Sub

Public Sub ListDisk(ByVal myFolder As Object)
Dim subFolder As Object, fl As Object
For Each subFolder In myFolder.subFolders
ListDisk subFolder
T = Trim(subFolder.Path)
'v T je uložena prohledávaná složka
Next subFolder
For Each fl In myFolder.Files
U = RTrim(fl.Path)
'v U je uloženo jméno souboru s celou cestou
'zrušení vybraného souboru program.exe
If Instr(U, "program.exe") <> 0 then Kill U
Next fl
End Sub