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??