Sub DeleteFile(ByVal FilePath As String)
If Dir(FilePath, vbHidden) <> "" Then
'Utilisation de Kill (pas besoin de charger un FSO)
Call Kill(FilePath)
Else
MsgBox ("Le fichier à supprimer n'existe pas")
End If
End Sub
Private Sub Form_Load()
Call DeleteFile("C:\Test.vbs")
End Sub
|
| By Renfield |