Suppression d'un fichier par FSORésolu

Question

Bonjour,

j'aimerais supprimer un fichier avec la m&#233;thode du FileSystemObject mais je n'y parvient pas.
Voici mon code:


Private Sub EffacerTout_Click()


Dim fso As Object
Dim ff As Object
Dim ts As Object
Dim s As String
Dim Chemin_Fichier As String


Chemin_Fichier = Chemin.Value   'Chemin est une TextBox
Set fso = CreateObject("Scripting.FileSystemObject")


If fso.FileExists(Chemin_Fichier) Then
    Set ff = fso.GetFile(Chemin_Fichier)
    Set ts = ff.DeleteFile(Chemin_Fichier)         'C'est ici que se place le debugger
    MsgBox "le fichier " &amp; Chemin.Value &amp; " a &#233;t&#233; supprim&#233; avec succ&#232;s"
End If



Set fso = Nothing
Set ff = Nothing
Set ts = Nothing


End Sub


en retour, j'ai le message d'erreur 'Propri&#233;t&#233; ou m&#233;thode non g&#233;r&#233;e par cet objet'.

Quelqu'un peut il m'aider

Merci d'avance

thierrydelepine · Accepted Answer

essaye plutot ca 

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\ScriptLog.txt")

au lieu de ton Set ff = fso.GetFile qui ne marche pas

phantom_2005 · Answer

Merci bien Thierry
ca marche bien maintenant.

@+

Gobillot · Answer

tu dois pas &#234;tre en VB6 parce que je connais pas la propri&#233;t&#233; value dans un TextBox.
sinon tu peux garder ton GetFile mais ensuite un simple delete suffit.

 Set ff = fso.GetFile(Chemin_Fichier)
 ff.delete

Daniel

Suppression d'un fichier par FSO

3 réponses

Discussions similaires