numéro des du dossier bureau utilisateur

Le
Jean Pierre Daviau
Bonjour à tous et à toutes,


Je cherche à connaître les numéros des différents dossiers. Par exemple le
dossier temp = fso.GetSpecialFolder(2). Lorsque le # correspond à un dossier
inexistant , il faudrait un try ou quelque chose du genre. Je vous épargne
mes essaies.

--
Set dirtemp = fso.GetSpecialFolder(2)
For K = 1 To 5

If (fso.GetSpecialFolder(K) = True ) Then WScript.Echo
fso.GetSpecialFolder(K)
End If
Next



Cordialement,


Jean Pierre Daviau

-
HP Pavilion Elite m9525f Desktop PC
Vista Édition Familiale Premium SP1 64 bits
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jbongran
Le #18765351
"Jean Pierre Daviau" news:

Bonjour à tous et à toutes,


Je cherche à connaître les numéros des différents dossiers. Par exemple le
dossier temp = fso.GetSpecialFolder(2). Lorsque le # correspond à un
dossier inexistant , il faudrait un try ou quelque chose du genre. Je vous
épargne mes essaies.

--------------
Set dirtemp = fso.GetSpecialFolder(2)
For K = 1 To 5

If (fso.GetSpecialFolder(K) = True ) Then WScript.Echo
fso.GetSpecialFolder(K)
End If
Next
---------------------


Cordialement,


Jean Pierre Daviau

-------
HP Pavilion Elite m9525f Desktop PC
Vista Édition Familiale Premium SP1 64 bits




http://msdn.microsoft.com/en-us/library/a72y2t1c(VS.85).aspx

Pour tester l'existence d'un dossier, l'usage de
fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez courant
;-)
Jean Pierre Daviau
Le #18768871
> Pour tester l'existence d'un dossier, l'usage de
fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez courant
;-)



:-)
jbongran
Le #18774471
"Jean Pierre Daviau" news:
Pour tester l'existence d'un dossier, l'usage de
fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez
courant ;-)



:-)




Sinon et pour répondre à ta question:

Dim fso, k, strTemp
On Error Resume Next
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
For K = 0 To 5
strTemp = fso.GetSpecialFolder(K)
If Err.Number = 0 Then
WScript.Echo "Le numéro de dossier spécial " & k & " pointe sur " &
strTemp
Else
WScript.Echo "Le numéro de dossier spécial " & k & " n'est pas valide"
Err.Clear
End IF
Next
Set fso = Nothing
Jean Pierre Daviau
Le #18778691
Merci c'est Cool mais,



Ligne: 7
Caract.: 71 >>>>fin de ligne 7
Erreur syntaxe
Code 800A03EA

---------------------- fold.vbs ----------------------


1 Dim fso, k, strTemp
2 On Error Resume Next
3 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
4 For K = 0 To 5
5 strTemp = fso.GetSpecialFolder(K)
6 If Err.Number = 0 Then
7 WScript.Echo "Le numéro de dossier spécial " & K & " pointe sur " &
8 strTemp
9 Else
10 WScript.Echo "Le numéro de dossier spécial " & K & " n'est pas valide"
11 Err.Clear
12 End IF
13 Next
14 Set fso = Nothing
15

---------------------- END/FIN ----------------------
Jean Pierre Daviau
Le #18778681
Yes!
Mon éditeur avait mis un retour à la ligne 8 de trop.


Ça marche les exceptions..

"jbongran" news:
"Jean Pierre Daviau" de news:
Pour tester l'existence d'un dossier, l'usage de
fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez
courant ;-)



:-)




Sinon et pour répondre à ta question:

Dim fso, k, strTemp
On Error Resume Next
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
For K = 0 To 5
strTemp = fso.GetSpecialFolder(K)
If Err.Number = 0 Then
WScript.Echo "Le numéro de dossier spécial " & k & " pointe sur " &
strTemp
Else
WScript.Echo "Le numéro de dossier spécial " & k & " n'est pas valide"
Err.Clear
End IF
Next
Set fso = Nothing


Lotre
Le #18779921
jbongran wrote:
"Jean Pierre Daviau" message de news:
Pour tester l'existence d'un dossier, l'usage de
fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez
courant ;-)








Bonjour,

... sinon, pour ces histoires de dossiers spéciaux, l'objet Shell
permet une plus grande variété que le FSO seul
y compris les "répertoires viruels" du type "Poste de Travail"
et autres "tout le réseau" :

Set SHW = Wscript.CreateObject("shell.application")
Set Foldeur = SHW.NameSpace(vDir)
' vDir est un Chemin ou une constante désignant un « répertoire
spécial »
' voir plus bas
Set Dossier = Foldeur.Self

retournera un objet FolderItem
que l'on peut ensuite interroger :
================================================= Dossier.IsFolder (L)
Retourne un booléen indiquant si oui ou nom cet élément
correspond à un objet Folder.
( un folderItem peut être un fichier ou un dossier )
Dossier.GetFolder (L)
(si isFolder retourne True) : Retourne l'objet
Folder associé.

IsLink et GetLink : Même principe ...


Dossier.IsBrowsable (L) Retourne aussi un booléen ...

Dossier.IsFileSystem (L) Retourne aussi un booléen
Permet de
savoir si on peut gérer cet objet avec le FSO

Dossier.ModifyDate (L) Date de la dernière modification
En
lecture seule pour les répertoires
Lecture
et écriture pour les fichiers (et les liens).

Dossier.Name (L/E) Le nom ...

Dossier.Parent (L) Retourne l'objet Folder "parent"

Dossier.Path (L) Chemin complet

Dossier.Size (L) Taille en octets

============================================================ Constantes associées à des répertoires spéciaux et noms éventuels
( ShellSpecialFolderConstants )

Dossier généraux indépendants de l'utilisateur

DESKTOP 0 : Dossier virtuel Racine
1 : Lance Internet Explorer
(page de démarrage )
CONTROLS 3 : Dossier virtuel : panneau de
configuration.
PRINTERS 4 : Dossier virtuel : Imprimantes et
télécopieurs.
DRIVES 17 : Poste de Travail. Dossier virtuel
FONTS 20 : Dossier Virtuel contenant les
polices installées.
WINDOWS 36 : SYSROOT; %windir% , %SYSTEMROOT%
c'est à dire C:Windows en
général
SYSTEM 37 : En général
C:WINDOWSSYSTEM32...
PROGRAMFILES 38 : Probablement C:Program Files.
43 : C:Program
FilesFichiers Communs
46 : Documents Partagés
... ?
49 : Connexion réseau
56 : C:WindowsRessources
61 : Ordinateurs du groupe
de travail. ?

Dossiers de All Users

COMMONSTARTMENU 22 : Menu démarrer
COMMONPROGRAMS 23 : Dossier "Programmes"
COMMONSTARTUP 24 : Le dossier
"Démarrage"
COMMONDESKTOPDIR 25 : Dossier "Bureau"
COMMONFAVORITES 31 : "Favoris"
COMMONAPPDATA 35 : "Application Data".
45 :
Modèles
53 :
Ma Musique

Dossiers de l'utilisateur courant.

PROGRAMS 2 : Dossier "Programmes" de
l'utilisateur.
PERSONAL 5 : Dossier Documents de
l'utilisateur.
FAVORITES 6 : Le dossier "Favoris"
STARTUP 7 : Le dossier
"Démarrage" de l'utilisateur.
RECENT 8 : Dossier "Recents" de
l'utilisateur.
SENDTO 9 : Dossier "SendTo" de
l'utilisateur..
10 : Corbeille de l'utilisateur.
STARTMENU 11 : Dossier "Menu Démarrer" de
l'utilisateur..
12 : rien ... ?
13 : Dossier Ma
Musique
14 : Mes Vidéos
15 : rien... ?
DESKTOPDIRECTORY 16 : Le dossier
"Bureau".
NETWORK 18 : Dossier
Virtuel : Favoris Réseau.
NETHOOD 19 : Dossier réel "Voisinage réseau".
TEMPLATES 21 : Dossier Modèles.
APPDATA 26 : Le Dossier "Application Data".
PRINTHOOD 27 : Dossier "Voisinage d'impression" de
l'utilisateur.
LOCALAPPDATA 28 : Dossier "Local
SettingsApplication Data"
29 : rien... ?

INTERNETCACHE 32 : Cache internet.
COOKIES 33 : Le dossier "Cookies"
HISTORY 34 : Historique (internet).
MYPICTURES 39 : Dossier "Mes Images".
PROFILE 40 : Dossier du profil. (Chemin de
NtUser.dat)
47 : Outils d'administration
48 : Idem ?
59 : Dossier des CD à graver
Publicité
Poster une réponse
Anonyme