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 :
Code :
- 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 :-)