metalcoder
Messages postés193Date d'inscriptionjeudi 14 février 2002StatutMembreDernière intervention25 mars 20111 12 oct. 2004 à 07:07
Essai plutot
private sub cmd_Suppression_click()
On Error GoTo err
If Right(File1.Path, 1) = "" Then
Kill (file1.Path & File1.List(File1.ListIndex))
Else
Kill (file1.Path & "" & File1.List(File1.ListIndex))
End If
MsgBox ("Suppression OK")
Exit Sub
err:
MsgBox "Suppression Impossible", vbCritical
end sub
Le faite de mettre right permet de savoir si le fichier a supprimer est sur la racine d'un disque ou dans un répertoire