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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  chacher des repertoires

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

chacher des repertoires

n°272249
william10
Posté le 18-12-2002 à 17:30:10  profilanswer
 

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

mood
Publicité
Posté le 18-12-2002 à 17:30:10  profilanswer
 

n°272253
mareek
Et de 3 \o/
Posté le 18-12-2002 à 17:40:58  profilanswer
 

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
n°272262
william10
Posté le 18-12-2002 à 17:56:03  profilanswer
 

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

n°272283
mareek
Et de 3 \o/
Posté le 18-12-2002 à 18:20:39  profilanswer
 

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
n°272306
william10
Posté le 18-12-2002 à 18:49:02  profilanswer
 

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

n°272329
william10
Posté le 18-12-2002 à 19:00:16  profilanswer
 

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 ?

n°272336
mareek
Et de 3 \o/
Posté le 18-12-2002 à 19:08:27  profilanswer
 

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
n°272352
william10
Posté le 18-12-2002 à 19:38:06  profilanswer
 

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

n°272973
karlkox
Posté le 19-12-2002 à 15:49:13  profilanswer
 

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


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

  chacher des repertoires

 

Sujets relatifs
[java]comment créer un repertoire ou des sous repertoiresAppliké des droits sur des repertoires...
[Win98] les repertoires persosTransférer des répertoires de fichiers via http
[PHP] Creer des repertoiresAfficher des variables comme des répertoires dans l'URL.
[java]repertoires et disques[Compacter] des répertoires en fichiers de taille fixe
[php & apache] Repertoires ...[VC6.0] Ou trouver une dialog box de sélection de fichiers/répertoires
Plus de sujets relatifs à : chacher des repertoires


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