Fichier texte....

Salut,

Plusieurs techniques, notamment :

Private Sub Form_Load()
'//Bourrin :
Call Kill2("c:mon fichier.txt")

'//Avec vérification :
If FileExists("c:mon fichier.txt") Then Call Kill("c:mon fichier.txt")

'//Même technique mais en plus pratique :
Call Kill3("c:mon fichier.txt")
End Sub


Private Function FileExists(ByRef sFile As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFile) And vbDirectory) = 0 And Err.Number = 0)
End Function

Public Sub Kill2(strPath As String)
On Error Resume Next
Call Kill(strPath)
On Error GoTo 0
End Sub

Public Sub Kill3(strPath As String)
If FileExists(strPath) Then Call Kill(strPath)
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/


"[aicfr]" <kheraud@cartolux-thiers.com> a écrit dans le message de
news:c94qgj$avg$1@s1.read.news.oleane.net...

Bonjour,

encore une question sur les fichier:
comment savoir si le fichier que l'on veut supprime existe, car si il
n'existe l'application plante.

merci
aicfr