Suppression d'un dossier

Suppression d'un dossier - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2005 à 11:49:49    

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 :
  1. If Dir("C:\SOP\Inspektionen\" ) <> "" Then
  2.                 With Application.FileSearch
  3.                    .LookIn = "C:\SOP\Inspektionen\"
  4.                    .SearchSubFolders = True
  5.                    .Execute
  6.                      For i = 1 To .FoundFiles.Count
  7.                          Set fs = CreateObject("Scripting.FileSystemObject" )
  8.                          fs.DeleteFile .FoundFiles(i)
  9.                      Next i
  10.                 End With
  11. 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 :-)

Reply

Marsh Posté le 06-06-2005 à 11:49:49   

Reply

Marsh Posté le 06-06-2005 à 14:26:29    

VirginieGE a écrit :

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 :
  1. If Dir("C:\SOP\Inspektionen\" ) <> "" Then
  2.                 With Application.FileSearch
  3.                    .LookIn = "C:\SOP\Inspektionen\"
  4.                    .SearchSubFolders = True
  5.                    .Execute
  6.                      For i = 1 To .FoundFiles.Count
  7.                          Set fs = CreateObject("Scripting.FileSystemObject" )
  8.                          fs.DeleteFile .FoundFiles(i)
  9.                      Next i
  10.                 End With
  11. 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 :-)


Salut,
 
Vu le message d'erreur que tu obtiens, je me demande si ce n'est pas bêtement une question de droits :) As-tu vérifié que tu possèdes le droit de supprimer des fichiers dans ce répertoire?
 
A+

Reply

Marsh Posté le 06-06-2005 à 16:35:55    

Salut et merci...
Oui, car si je le fais manuellement, j'y arrive... sans problème ?!?

Reply

Marsh Posté le 07-07-2005 à 13:37:33    

J'ai eu le même problème en VBS.
Essaie de faire un "getFile(Myfile)", puis "Myfile.close" (le getfile ouvre le fichier et empêche la suppresion) puis "delete"
Voila l'idée, désolé pour la synthaxe, je ne connais pas le VB ...
 
Bon courage

Reply

Marsh Posté le 07-07-2005 à 15:00:45    

en rajoutant la librairie microsoft scripting runtime
suppresion du dossier :
Dim fso As FileSystemObject
Dim fd As Folder
 
Set fso = New FileSystemObject
Set fd = fso.GetFolder("chemin de ton dossier" )
fd.delete
 
 
ou supression de son contenu (sans supprimer le dossier)
 
Dim fso As FileSystemObject
Dim fd As Folder
dim fl as file
 
Set fso = New FileSystemObject
Set fd = fso.GetFolder("chemin de ton dossier" )
For Each fl In fd.Files
   fl.delete
next

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed