Vb - Suppression D'un Dossier

Logiciel & apps Programmation
1

Bonjour à tous,

J’essaie en vain, dans VB, de voir si un dossier existe et s’il n’est pas vide. Dans ce cas, je dois le supprimer ou le vider :

If Dir("C:\SOP\Inspektionen\") <> "" Then
                With Application.FileSearch
                   .LookIn = "C:\SOP\Inspektionen\"
                   .SearchSubFolders = True
                   .Execute
                     For i = 1 To .FoundFiles.Count
                         Set fs = CreateObject("Scripting.FileSystemObject")
                         fs.DeleteFile .FoundFiles(i)
                     Next i
                End With
End If

Le problème est que je reçois une erreur d’exécution 70 : permission refusée. Est-ce que qqn pourrai m’aider svp ?!?

Merci d’avance PS : je suis aussi preneuse d’une autre idée :slight_smile:

2

Ce message n’était pas conforme aux règles d’utilisation du nouveau forum :

merci de préciser le langage utilisé dans le titre de ton topic :jap:

3

Mille pardons, c’est du VB !!!!!