Výpis všech souborů – Visual Basic – Fórum – Programujte.com

zdravim ... hledám způsob jak získat obsah celého počítače neěco co by projelo všechny disky a vypsalo by to do textovýho souboru něco jako

C:\

C:\autoexec.bat

C:\windows\system32\

C:\windows\system32\setup.exe

.

.

.

D:\setup.exe

D:\drivers\setup.exe

no ja sem na neco takovyho pouzival sfk - swiss file knife.. . ale je to samostatnej program pro shell

njn a nebylo by něco do VB6?

Někde na formuláři tlačítko Command

Private Sub Command1_Click()
Nacti_Slozku
End Sub

V modulu

Public Sub Nacti_Slozku()
Dim fso As Object, fl As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Open "C:\Výpis.txt" For Output As #1
Set fl = fso.GetFolder("C:\")
ListDiskE fl
Close #1
End Sub

Public Sub ListDiskE(ByVal myFolder As Object)
Dim subFolder As Object, fl As Object
For Each subFolder In myFolder.subFolders
ListDiskE subFolder
Next subFolder
For Each fl In myFolder.Files
Print #1, fl.Path
Next fl
End Sub

To jkonopasek : jj běží to, ale sekne se mi to když soubor "výpis.txt" dosáhne velikosti 17 343 488 bajtů, neprojede to ani celej jeden disk :( a píše mi to

Run-Time Error '70':
Permission denied

For Each subFolder In myFolder.subFolders

Do některých složek je zakázaný přístup (např. System Volume Information). Tomu by odpovídala i ta chybová hláška (přístup odmítnut). Pak je třeba ošetřit chybový stav a prohledávání takových složek se vyhnout.

Zkus dát místo
Set fl = fso.GetFolder("C:\")
Set fl = fso.GetFolder("C:\System Volume Information\")

a řachne to hned.