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
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
;-)
:-)
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
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 ----------------------
Mon éditeur avait mis un retour à la ligne 8 de trop.
Ça marche les exceptions..
"jbongran" news:
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