Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft numéro des du dossier bureau utilisateur

numéro des du dossier bureau utilisateur

6 réponses
Avatar
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
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jbongran
"Jean Pierre Daviau" a écrit dans le message de
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
;-)
Avatar
Jean Pierre Daviau
> Pour tester l'existence d'un dossier, l'usage de
fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez courant
;-)



:-)
Avatar
jbongran
"Jean Pierre Daviau" a écrit dans le message 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
Avatar
Jean Pierre Daviau
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 ----------------------
Avatar
Jean Pierre Daviau
Yes!
Mon éditeur avait mis un retour à la ligne 8 de trop.


Ça marche les exceptions..

"jbongran" a écrit dans le message de
news:
"Jean Pierre Daviau" a écrit dans le message
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


Avatar
Lotre
jbongran wrote:
"Jean Pierre Daviau" a écrit dans le
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