Visual Basic 6 - Aprire un file

errore cazzone in analize ti riposto la funzione.

Private Sub Analize(DPath As String)
Dim x As Integer
level = level + 1
Dir1.Path = DPath
If Not Dir(DPath & SName) = "" Then List1.AddItem DPath
If Not Dir1.ListCount = 1 Then
    For x = 0 To Dir1.ListCount - 1
        Analize (Dir1.List(x) & "\")
    Next x
End If
If Not Dir1.Path = "c:\" Then Dir1.Path = ".."
level = level - 1
End Sub

avevo messo for x = 1 to.. invece di for x = 0 to..

Ps: ho anche migliorato l'ordine di apparizione.
era assurdo che ti desse prima quelle nelle sottocartelle che quelle in c

Ti ringrazio ankora 1 volta,
ma purtroppo è sempre la stessa storia,
quando prova.exe sta in C: lo trova e me lo apre.
Quando prova.exe stà sul desktop nn me lo trova e quindi nn me lo apre.

Beh,ma se poi i file sono due o piu dovresti controllare la dimensione ecc...
Ci metterà sicuramente di piu di 2 sec,visto che addirittura ho un sorgente che c'impiega molto,almeno 2 min a cerkare,se volete/vuoi lo posto!

strano, ho controllato e mi controlla l'intero albero di cartelle del computer.
non è che sei dentro a cartelle nascoste, o magari windows è installato su un secondo hard disk?
(che non sarebbe + in c:\)

@Byte-Fuck: Si, postalo così vedo come è fatto.
@Paperoga: ho un solo hard disk "C:" e il file stà sul desktop e non me lo trova.

p.s. Scusate per il doppio post.

@Byte-Fuck: Si, postalo così vedo come è fatto.
@Paperoga: ho un solo hard disk "C:" e il file stà sul desktop e non me lo trova.

hmm strano
ok sara stressante per la tua cpu ci metterà forse + di 1 min a elaborare tutto ma aggiungi un list2 al progetto (fallo bello grande e soprattutto LARGO)
e aggiungi list2.additem (Dir1.List(x)) qui

Private Sub Analize(DPath As String)
Dim x As Integer
level = level + 1
Dir1.Path = DPath
If Not Dir(DPath & SName) = "" Then List1.AddItem DPathlist2.additem (Dir1.List(x))
If Not Dir1.ListCount = 1 Then
For x = 0 To Dir1.ListCount - 1
[b]list2.additem (Dir1.List(x))[/b]
Analize (Dir1.List(x) & "\")
Next x
End If
If Not Dir1.Path = "c:\" Then Dir1.Path = ".."
level = level - 1
End Sub

poi dimmi se compare C:\documents and settings\tuouser\desktop nell'elenco

cronometrato 29 sec