Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1377 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Suppression d'un dossier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Suppression d'un dossier

n°1109431
VirginieGE
Posté le 06-06-2005 à 11:49:49  profilanswer
 

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

mood
Publicité
Posté le 06-06-2005 à 11:49:49  profilanswer
 

n°1109714
gfa
Posté le 06-06-2005 à 14:26:29  profilanswer
 

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+

n°1109990
VirginieGE
Posté le 06-06-2005 à 16:35:55  profilanswer
 

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

n°1143194
Gigatof
Posté le 07-07-2005 à 13:37:33  profilanswer
 

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

n°1143305
lhonolulu
Posté le 07-07-2005 à 15:00:45  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Suppression d'un dossier

 

Sujets relatifs
Changer de dossier.lire tout les fichiers d'un dossier ...
Vider le dossier Contactlister et supprimer le contenu d'un dossier
Comment vérifier si un dossier existe déjà ? [Résolu][Vb/Access]Suppression par des critères
Suppression dossier[Perl] CGI création de dossier et fichier
Manipuler un dossier 
Plus de sujets relatifs à : Suppression d'un dossier


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)