Suppression d'un fichier par FSO [Résolu]

phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 3 janv. 2005 à 10:40 - Dernière réponse : Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention
- 3 janv. 2005 à 11:44
Bonjour,

j'aimerais supprimer un fichier avec la mé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 " & Chemin.Value & " a été supprimé avec succès"
End If



Set fso = Nothing
Set ff = Nothing
Set ts = Nothing


End Sub


en retour, j'ai le message d'erreur 'Propriété ou méthode non gérée par cet objet'.

Quelqu'un peut il m'aider

Merci d'avance
Afficher la suite 

3 réponses

Meilleure réponse
thierrydelepine 521 Messages postés mardi 24 décembre 2002Date d'inscription 11 septembre 2008 Dernière intervention - 3 janv. 2005 à 11:28
3
Merci
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

Merci thierrydelepine 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 3 janv. 2005 à 11:35
0
Merci
Merci bien Thierry
ca marche bien maintenant.

@+
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 3 janv. 2005 à 11:44
0
Merci
tu dois pas être en VB6 parce que je connais pas la propriété 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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.