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
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
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
Pour tester l'existence d'un dossier, l'usage de fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez courant ;-)
"Jean Pierre Daviau" <onceWasenough@videotron.ca> a écrit dans le message de
news:OKf3nF3lJHA.2384@TK2MSFTNGP04.phx.gbl...
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
"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
> Pour tester l'existence d'un dossier, l'usage de fso.FolderExists("LettreLecteur:CheminNom_du_dossier") est assez courant ;-)
:-)
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
"Jean Pierre Daviau" <onceWasenough@videotron.ca> a écrit dans le message de
news:uyKq0bBmJHA.4180@TK2MSFTNGP04.phx.gbl...
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" 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
Jean Pierre Daviau
Merci c'est Cool mais,
Ligne: 7 Caract.: 71 >>>>fin de ligne 7 Erreur syntaxe Code 800A03EA
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
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
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
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
Yes!
Mon éditeur avait mis un retour à la ligne 8 de trop.
Ça marche les exceptions..
"jbongran" <jbongran@free.fr> a écrit dans le message de
news:uqUyykHmJHA.4448@TK2MSFTNGP05.phx.gbl...
"Jean Pierre Daviau" <onceWasenough@videotron.ca> a écrit dans le message
de news:uyKq0bBmJHA.4180@TK2MSFTNGP04.phx.gbl...
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
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
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).
============================================================ 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
jbongran wrote:
"Jean Pierre Daviau" <onceWasenough@videotron.ca> a écrit dans le
message de news:uyKq0bBmJHA.4180@TK2MSFTNGP04.phx.gbl...
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).
============================================================ 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
"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).
============================================================ 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