[VB / DOS] Effacer une arboresence

Effacer une arboresence [VB / DOS] - VB/VBA/VBS - Programmation

Marsh Posté le 15-05-2002 à 10:19:41    

Bonjour,
 
Je cherche a  supprimer une arboresence sous VB. J'ai pense utilise la commande Deltree mais cette derniere n'existe pas (du moins pas en standard sur les PC utilises NT 4 - SP6).
 
Existe-il un equivalent de deltree ? ou alors une commande VB qui permette de faire ca ?
 
Merci pour votre aide.

Reply

Marsh Posté le 15-05-2002 à 10:19:41   

Reply

Marsh Posté le 15-05-2002 à 10:21:47    

utilises shell qui te permet d'ouvrir une fenetre dos, et alors tu peux exécuter la commande que tu veux
 
syntaxe : shell deltree [chemin]
 
ça devrait marcher...


---------------
Music|Market|Feed|Loom|DVD
Reply

Marsh Posté le 15-05-2002 à 10:26:31    

Le probleme est justement que la commande deltree n'est pas disponible sur les Pcs de la boite.
 
Je me demandais s'il n'existait pas une commande equivalent (ou une instruction en VB)

Reply

Marsh Posté le 15-05-2002 à 10:29:05    

deltree pour NT est dispo ici :
 
http://www.freedownloadscenter.com [...] EE_NT.html


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 15-05-2002 à 10:31:44    

en NT c'est del /s


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 15-05-2002 à 10:32:23    

del /s va supprimer les fichiers contenus dans les rep et sous rep, mais pas l'arobrescence

Reply

Marsh Posté le 15-05-2002 à 10:34:31    

Ha, alors rd /s /q


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 15-05-2002 à 10:39:53    

merci antp (et les autres) c'est pile poil ce qu'il me fallait :bounce:

Reply

Marsh Posté le 15-05-2002 à 14:05:49    

Scusez moi, d'habitude c moi qui donne mon propre code, mais la g trop la flemme :)
Alors, voila en VB :
 
' récupéré sur  
'http://www.codeguru.com/vb/openfaq/comments/148.shtml
' Désolé :-p
Sub deldir (path As String)
 Dim tempvar As String, pos As Integer
 pos = 0
 tempvar = Dir(path + "\*.*", 22)
 Do While tempvar <> ""
     If tempvar <> "." And tempvar <> ".." Then
  If (GetAttr(path + "\" + tempvar) And 16) = 0 Then
      SetAttr path + "\" + tempvar, 0
      Kill path + "\" + tempvar
  Else
      deldir (path + "\" + tempvar)
      tempvar = Dir(path + "\*.*", 22)
  End If
     End If
     tempvar = Dir
 Loop
 RmDir path
End Sub
 
Pas trop dur mais bon, ca peut toujours servir

Reply

Marsh Posté le 15-05-2002 à 15:03:38    

autre façon de procéder :
 
1/cocher "Microsoft Scripting Runtime" dans les références du projet.
 
2/faire apparaître l'explorateur d'object (touche F2)
 
3/lancer une recherche dans la bibliothèque "Scripting" sur la classe "FileSystemObject"
 
la méthode "DeleteFolder" te sera utile pour ce que tu veux faire.

Reply

Sujets relatifs:

Leave a Replay

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