Esplora risorse(non funziona elimina file)

[rs125]

Salve ragà.
Ho un problemino...Ho creato una specie di esplora risorse con una DirListBox(in cui vedo tutte le cartelle) una FileListBox(in cui vedo tutti i file contenuti nelle cartella della DirListBox) un DriveListBox(per i vari drive) e infine tre tasti che mi devono creare, eliminare ed aprire i file a mia scelta.

Ora vengo al dunque il tasto apri funziona tranquillamente, il tasto crea per il momento crea solo cartelle mentre quello elimina mi da problemi. riesco solo a cancellare cartelle e pure con difficoltà perchè ho dovuto creare una textbox per specificare il nome e cancellare la cartella.

La mia domanda è: posso cancellare i file o le cartelle a mio piacimento(andando dalla FileListBox alla DirListBox) e quando premo elimina mi elimina solo quello che io ho già selezionato?Come si fa?

PS: posso abilitare il tasto destro del mouse(ioltre ai precedenti comandi)?grazie

[rs125]

Forse è meglio se posto il codice. Premetto che è VB6

'----Inizio codice----------

Private Sub EliminaCartella_Click()
Dim fso, CurrentDir, msgresult As VbMsgBoxResult
If Text1.Text = "" Then
MsgBox "Specificare il nome di una cartella da eliminare!", vbCritical, "I/O ERROR"
Exit Sub
End If
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo FOLDERERROR
Set CurrentDir = fso.GetFolder(Dir1.Path & "\" & Text1.Text)
msgresult = MsgBox("Vuoi davvero cancellare la cartella " & CurrentDir & " ?", vbOKCancel + vbQuestion, "CONFERMA DI ELIMINAZIONE")
If msgresult = vbOK Then
CurrentDir.Delete
Dir1.Refresh
MsgBox "Cartella cancellata con successo!", vbInformation, "CANCELLAZIONE EFFETTUATA"
Text1.Text = ""
Dir1.Refresh
End If
Exit Sub
FOLDERERROR:
MsgBox "Attenzione: la cartella che si vuole eliminare non esiste!", vbCritical, "I/O ERROR"
End Sub

'------Fine codice---------

Con questo codice io selezionando da dir1 la cartella riesco ad eliminarla. Però selezionando da file1(FileListBox collegata con la DirListBox) non riesco ad eliminare i file. Qualcuno sa aiutarmi??

[oregon]

Scusa ... ma dove elimini il file?

[rs125]

Si,scusa...ho sbagliato codice...questo è quello della cartella,ma quello del file è simile:

Dim CurrentFile, msgresult As VbMsgBoxResult
Dim fso As Variant
If Text1.Text = "" Then
MsgBox "Specificare il nome di un file da eliminare!", vbCritical, "I/O ERROR"
Exit Sub
End If
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo FILEERROR
Set CurrentFile = fso.Deletefile(File1.fileName) ' & "\") ' & Text1.Text) '------------>
msgresult = MsgBox("Vuoi davvero cancellare il file " & CurrentFile & " ?", vbOKCancel + vbQuestion, "CONFERMA DI ELIMINAZIONE")
If msgresult = vbOK Then
CurrentFile.Delete
File1.Refresh
MsgBox "File cancellato con successo!", vbInformation, "CANCELLAZIONE EFFETTUATA"
Dir1.Refresh
End If
Exit Sub
FILEERROR:
MsgBox "Attenzione: il file che si vuole eliminare non esiste!", vbCritical, "I/O ERROR"
End Sub


Ci stavo lavorando e dove ho messo la freccia ---> ho scoperto che questa riga,esattamente al currentfile mi da vuoto(con f8).come posso risolvere??aiutami tu...

[oregon]

Beh ... c'e' parecchia confusione ...

Riparti da questo codice di esempio

Private Sub File1_Click()
    Text1.Text = File1.Path & File1.List(File1.ListIndex)
    
    If Text1.Text = "" Then
        MsgBox "Specificare il nome di un file da eliminare!", vbCritical, "I/O ERROR"
        Exit Sub
    End If

    Dim msgresult As VbMsgBoxResult
    msgresult = MsgBox("Vuoi davvero cancellare il file " & Text1.Text & " ?", vbOKCancel + vbQuestion, "CONFERMA DI ELIMINAZIONE")
    
    If msgresult = vbOK Then
        On Error GoTo FILEERROR

        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        
        fso.DeleteFile Text1.Text
        
        Set fso = Nothing
        
        File1.Refresh
        Dir1.Refresh
    
        On Error GoTo 0

        MsgBox "File cancellato con successo!", vbInformation, "CANCELLAZIONE EFFETTUATA"
    End If
    
    Exit Sub

FILEERROR:
    MsgBox "Attenzione: il file che si vuole eliminare non esiste!", vbCritical, "I/O ERROR"
End Sub

[rs125]

Scusa ma non c'era confusione...c'erano prove su prove che mi sono dimenticato di togliere...cmq il tuo codice mi dice la stessa cosa...cioè che il file che voglio cancellare non esiste anche se mi chiede se voglio cancellarlo. infatti rimane sempre li.Il codice delle cartelle funziona tranquillamente,perchè questo no??

[oregon]

Beh ... se fai prove su prove e non le metti a posto, il codice resta confuso ...

Il codice che ti ho proposto funziona ... come lo usi ?

[rs125]

Infatti come ti ho detto nel post precendete non funziona. Io lo uso così(anche se poi lo modificherò)seleziono la cartella che desidero e poi accanto in una filelistbox mi mostra tutti i file.
Dopo di chè vado nella textbox e ci scrivo il nome del file che voglio eliminare.Lui risponde bene...mi dice se sono sicuro di volerlo cancellare e poi dopo il vbOK positivo mi dice che il file non esiste.
Mi sono appena accorto che nella casella di testo prima di dirgli ok per cancellarlo il percoso
(es. c:\users\prova\prova.txt) è giusto quando però clicco su ok il percorso diventa
(es. c:\users\provaprova.txt). Sai perchè?è questo il problema!

[oregon]

Sì ... questa linea va modificata cosi'

Text1.Text = File1.Path & "\" & File1.List(File1.ListIndex)

... io l'avevo provato con un file nella root e non c'era il problema ...

[rs125]

okok ,ora funziona!!
Mi è bastato aggiungere "\" nel codice e ora cancella i file.

Ora l'altro mio problema è che per cancellare i file e le cartelle non voglio usare la casella di testo,ma selezionando le cartelle o i file dalle listbox me le deve cancellare al click. Come posso fare??GRazie mille oregon!!