Problemi Con Le Path Vb6 - DriveListBox->DirListBox->FileListBox->

[Brothers]

Problemi con le Path VB6

Ho progettato una specie di visualizzatore di testi con cerca parole e cerca file

e tutto funziona fino a che non cambio Drive di ricerca nel DriveListBox

Solo allora, credo, perda la Path, anche se ho cercato di rinforzarla quà e là

perche mi dice:

Errore : impossibile accedere al percorso del File

Con qualche aggiunta sono arrivato ad intercettare l'errore e ad evitarlo

ma di cambiare Drive non se ne parla ovvero tutto funziona fino al controllo:

FileListBox

La procedura è questa:

DriveListBox(Drive1) -> DirListBox(Dir1) -> FileListBox(File2) -> RichTexBox(rtfText) -

L'errore si presenta da: FileListBox(File2) a RichTexBox(rtfText)

al momento di visualizzare nella:

RichTexBox(rtfText)

il documento selezionato nella:

FileListBox(File2)

da un altro Drive.

Mi spiego? (disse il paracadute).

Ho provato anche ad usare una cosa tipo:

LoadNewDoc

Ma non trova il file lo stesso credo proprio sia un problema di Path.

Qualcuno sa come mai succede questo e mi può aiutare a risolvere il problema.

Grazie mille in anticipo.

Sotto metto il codice essenziale per capire meglio.

---------------------------------------------------

Option Explicit

-------------------------------------------

Private Sub Drive1_Change()

On Error GoTo DriveHandler

' Se è selezionata una nuova unità, aggiorna

' il contenuto della casella Dir1.

Dir1.path = Drive1.Drive

Exit Sub

' In caso di errore, reimpostare Drive1.Drive

' sull'unità specificata in Dir1.path.Path.

DriveHandler:

Drive1.Drive = Dir1.path

Exit Sub

End Sub

-----------------------------------------

Private Sub File2_Click()

' Se Dir1.Path è diversa dalla directory

' selezionata, la aggiorna. In caso contrario,

' avvia la Visualizzazione.

If Dir1.path <> Dir1.List(Dir1.ListIndex) Then

Dir1.path = Dir1.List(Dir1.ListIndex)

Exit Sub

End If

Dim pathcorrente As String

pathcorrente = File2.path

ChDir pathcorrente

On Error GoTo GestoreErrori

File2.path = Dir1.path

rtfText.Filename = File2.Filename 'QUI al cambio di DRIVE NON TROVA IL FILE

Exit Sub

GestoreErrori:

If err.number = 68 Then

'Periferica non disponibile.

MsgBox "Impossibile accedere all'unità specificata. Selezionare un'unità diversa e riprovare."

Dir1.path = Drive1.Drive

File2.path = Dir1.path

End If

End Sub

----------------------------------------

Private Sub Dir1_Change()

If Dir1.path <> Dir1.List(Dir1.ListIndex) Then

Dir1.path = Dir1.List(Dir1.ListIndex)

Exit Sub

End If

On Error GoTo GestoreErrori

File2.path = Dir1.path

Exit Sub

GestoreErrori:

If err.number = 68 Then

'Periferica non disponibile.

MsgBox "Impossibile accedere all'unità specificata. Selezionare un'unità diversa e riprovare."

Dir1.path = File2.path

End If

End Sub

---------------------------------------