Supprimer fichier doc sans connaitre son nom

Question

Bonjour

'Suppression du fichier
Set Ftxt = fso.GetFile("moncheminsource")   'Fichier origine
Ftxt.delete

Avec ce programme , si je veux supprimer un fichier .doc mais que je ne connais pas son nom. Quel moyen je peux prendre ?

Si je fais ceci, il me dis que le fichier est introuvable :

'Suppression du fichier
Set Ftxt = fso.GetFile("c:	estv\*.doc")   'Fichier origine
Ftxt.delete

Merci de m'aider

Jeff · Answer

Le mieux serait de lister les fichiers dans le répertoire avec GetFolder, faire une boucle les énumérant, puis faire un test sur leur nom pour voir s'ils possèdent l'extension .doc, puis les supprimer un par un dans la boucle !

Utilisateur anonyme · Answer

Bonjour,

Voici un exemple de base :


Sub Suppression()

    Const RepSource = "C:\Documents local\essai\"
    
    Dim objFSO As Variant, objFichier As Variant, objRepertoire As Variant
    Dim Longueur As Integer, Compteur As Integer, Extension As String
    Dim Boite() As String

    Dim NumFic As Integer
    Dim Valeur As String
    Dim Boucle As Integer


    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objRepertoire = objFSO.GetFolder(RepSource)
    Compteur = 0
    If (objRepertoire.Files.Count > 0) Then
        For Each objFichier In objRepertoire.Files
            Longueur = Len(objFichier.Name)
            Extension = Mid(objFichier.Name, Longueur - 2)
            If (Extension = "doc") Then
                ReDim Preserve Boite(Compteur) As String
                Boite(Compteur) = objFichier.Name
                Compteur = (Compteur + 1)
                objFSO.DeleteFile (RepSource & objFichier.Name)
            End If
        Next
    End If


    
    Valeur = "C:\Documents local\essai\Essai.txt"
    NumFic = FreeFile
    
    Open Valeur For Output As #NumFic
    For Boucle = 0 To (Compteur - 1)
        Write #NumFic, Boite(Boucle)
    Next Boucle
    Close #NumFic

    Set objFSO = Nothing
    Set objRepertoire = Nothing

End Sub


Vous aurez ainsi tous les noms des fichiers supprimés dans le fichier texte [ C:\Documents local\essai\Essai.txt ].

Lupin

macandre · Answer

Merci, je vais travailler la-dessus :)

Supprimer fichier doc sans connaitre son nom

3 réponses

Discussions similaires

Newsletters