chacher des repertoires

chacher des repertoires - VB/VBA/VBS - Programmation

Marsh Posté le 18-12-2002 à 17:30:10    

ya til une commande en visual basic pour cacher des répertoires sous windows. Aisi l'explorateur croirai kils existent plus ??

Reply

Marsh Posté le 18-12-2002 à 17:30:10   

Reply

Marsh Posté le 18-12-2002 à 17:40:58    

Code :
  1. Dim fso As FileSystemObject
  2.   Dim rep As Folder
  3.  
  4.   Set fso = New FileSystemObject
  5.  
  6.   Set rep = fso.GetFolder("c:\temp" )
  7.  
  8.   rep.Attributes = rep.Attributes Or Hidden


 
tu dois avoir "Microsoft scripting runtime" dans les references de ton projet


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 18-12-2002 à 17:56:03    

je comprends pas :
 
g visual basic 6
 
si je colle ton code ds une sub d'un bouton par exemple ce ki donne ça :
 
Private Sub Command1_Click()
 Dim fso As FileSystemObject
 Dim rep As Folder
 
 Set fso = New FileSystemObject
 
 Set rep = fso.GetFolder("c:\windows\bureau\test" )
 
 rep.Attributes = rep.Attributes Or Hidden
End Sub

 
si je lance et que je clique sur le bouton g l'érreur suivante:
 
Erreur de compilation , type defini par l'utilisateur non définit.
 
et ça surligne  "As FileSystemObject"
 

Citation :

tu dois avoir "Microsoft scripting runtime" dans les references de ton projet

ça veut dire koi ??
que je dois installer le composant "Microsoft scripting runtime"
si c le cas je l'ai pas trouvé ds la liste.
 
En gros g rein capté a ton truc :)
 
pourait-tu etre plus précis ??
 
Merci

Reply

Marsh Posté le 18-12-2002 à 18:20:39    

william10 a écrit :


Citation :

tu dois avoir "Microsoft scripting runtime" dans les references de ton projet

ça veut dire koi ??
que je dois installer le composant "Microsoft scripting runtime"
si c le cas je l'ai pas trouvé ds la liste.
 
En gros g rein capté a ton truc :)
 
pourait-tu etre plus précis ??
 
Merci

Difficile d'être plus précis, mais je vais quand même essayer.
Dans le Menu projet, tu cliques sur "references", une fenêtre s'ouvre avec une liste. dans la liste tu cherches "Microsoft Scripting Library" et tu coches la case à gauche de son nom. Cliques su OK. Execute ton projet et normallement ça marche.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 18-12-2002 à 18:49:02    

en effet merci, j'ai plus dérreur mais le dossier ne disparait au moment du clic :\
 
est-ce normal ???
code utlisé :
 
Private Sub Command1_Click()
 Dim fso As FileSystemObject
 Dim rep As Folder
 
 Set fso = New FileSystemObject
 
 Set rep = fso.GetFolder("c:\windows\bureau\test\" )
 
 rep.Attributes = rep.Attributes Or Hidden
End Sub

Reply

Marsh Posté le 18-12-2002 à 19:00:16    

je crois kon c mal compris, je ne veux pas cacher un repertoire qui redeviendrai visible si ds l'explorer on met affichier le fichiers et dossier cacher...
 
je voudrais que pour windows il devienne inexistant comme le font certaitn programmmes style windefender ou encore magicfolders....
 
c mieux aisi ou toujours pas ?

Reply

Marsh Posté le 18-12-2002 à 19:08:27    

william10 a écrit :

je crois kon c mal compris, je ne veux pas cacher un repertoire qui redeviendrai visible si ds l'explorer on met affichier le fichiers et dossier cacher...
 
je voudrais que pour windows il devienne inexistant comme le font certaitn programmmes style windefender ou encore magicfolders....
 
c mieux aisi ou toujours pas ?

là ça devient beaucoup plus complexe et je doute que ça soit possible de faire ça en quelques lignes de VB.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 18-12-2002 à 19:38:06    

merci ken meme
 
si kelkun a la solution ....

Reply

Marsh Posté le 19-12-2002 à 15:49:13    

Regarde du coté de SetAttr, je ne suis pas sur que ca fonctionne pour les répertoires.

Reply

Sujets relatifs:

Leave a Replay

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