"Jacques Barathon [MS]" a écrit dans le message de news:
"Bernard59139" <bfermaut at free dot fr> wrote in message news:%
Bonjour à tous
Existe-t-il un moyen simple de lister les fichiers cachés du TIF.
C'est quoi le TIF?
Jacques C'est, pour moi, le *Temporary Internet Files*
Excuse moi pour ce rccourci mal venu Bernard
Gilles LAURENT
"Bernard59139" <bfermaut at free dot fr> a écrit dans le message de news: | "Jacques Barathon [MS]" a écrit dans | le message de news: || "Bernard59139" <bfermaut at free dot fr> wrote in message || news:% ||| Bonjour à tous ||| ||| Existe-t-il un moyen simple de lister les fichiers cachés du TIF. || || C'est quoi le TIF? || || Jacques | C'est, pour moi, le *Temporary Internet Files* | | Excuse moi pour ce rccourci mal venu | Bernard
Ok, maintenant nous savons ce qu'est le TIF :-) Le TIF est donc un dossier spécial contenant les Fichiers Internet Temporaires Les dossiers spéciaux sont facilement accessibles via le Shell
--- Coupez ici ---
Option Explicit
' déclaration des variables Dim oShApp, oFolder, oFile Dim colFiles
' initialisation des objets Set oShApp = CreateObject ("Shell.Application") Set oFolder = oShApp.Namespace (32) ' CSIDL du TIF Set colFiles = oFolder.Items
' lecture des fichiers temporaires For Each oFile In colFiles WScript.Echo oFile.Name Next
--- Coupez ici ---
Les constantes CSIDL : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
-- Gilles LAURENT http://glsft.free.fr
"Bernard59139" <bfermaut at free dot fr> a écrit dans le message de
news:u1aTwDbNHHA.3268@TK2MSFTNGP04.phx.gbl
| "Jacques Barathon [MS]" <jbaratho@online.microsoft.com> a écrit dans
| le message de news: OavenmaNHHA.3552@TK2MSFTNGP03.phx.gbl...
|| "Bernard59139" <bfermaut at free dot fr> wrote in message
|| news:%237geSWaNHHA.3588@TK2MSFTNGP06.phx.gbl...
||| Bonjour à tous
|||
||| Existe-t-il un moyen simple de lister les fichiers cachés du TIF.
||
|| C'est quoi le TIF?
||
|| Jacques
| C'est, pour moi, le *Temporary Internet Files*
|
| Excuse moi pour ce rccourci mal venu
| Bernard
Ok, maintenant nous savons ce qu'est le TIF :-)
Le TIF est donc un dossier spécial contenant les Fichiers Internet
Temporaires
Les dossiers spéciaux sont facilement accessibles via le Shell
--- Coupez ici ---
Option Explicit
' déclaration des variables
Dim oShApp, oFolder, oFile
Dim colFiles
' initialisation des objets
Set oShApp = CreateObject ("Shell.Application")
Set oFolder = oShApp.Namespace (32) ' CSIDL du TIF
Set colFiles = oFolder.Items
' lecture des fichiers temporaires
For Each oFile In colFiles
WScript.Echo oFile.Name
Next
--- Coupez ici ---
Les constantes CSIDL :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
"Bernard59139" <bfermaut at free dot fr> a écrit dans le message de news: | "Jacques Barathon [MS]" a écrit dans | le message de news: || "Bernard59139" <bfermaut at free dot fr> wrote in message || news:% ||| Bonjour à tous ||| ||| Existe-t-il un moyen simple de lister les fichiers cachés du TIF. || || C'est quoi le TIF? || || Jacques | C'est, pour moi, le *Temporary Internet Files* | | Excuse moi pour ce rccourci mal venu | Bernard
Ok, maintenant nous savons ce qu'est le TIF :-) Le TIF est donc un dossier spécial contenant les Fichiers Internet Temporaires Les dossiers spéciaux sont facilement accessibles via le Shell
--- Coupez ici ---
Option Explicit
' déclaration des variables Dim oShApp, oFolder, oFile Dim colFiles
' initialisation des objets Set oShApp = CreateObject ("Shell.Application") Set oFolder = oShApp.Namespace (32) ' CSIDL du TIF Set colFiles = oFolder.Items
' lecture des fichiers temporaires For Each oFile In colFiles WScript.Echo oFile.Name Next
--- Coupez ici ---
Les constantes CSIDL : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
-- Gilles LAURENT http://glsft.free.fr
Bernard59139
"Gilles LAURENT" a écrit dans le message de news: %
Ok, maintenant nous savons ce qu'est le TIF :-) Le TIF est donc un dossier spécial contenant les Fichiers Internet Temporaires Les dossiers spéciaux sont facilement accessibles via le Shell
--- Coupez ici ---
Option Explicit
' déclaration des variables Dim oShApp, oFolder, oFile Dim colFiles
' initialisation des objets Set oShApp = CreateObject ("Shell.Application") Set oFolder = oShApp.Namespace (32) ' CSIDL du TIF Set colFiles = oFolder.Items
' lecture des fichiers temporaires For Each oFile In colFiles WScript.Echo oFile.Name Next
--- Coupez ici ---
Les constantes CSIDL : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
-- Gilles LAURENT http://glsft.free.fr
Le script est très bien pour connaitre le répertoire temporaire de IE, mon Script s'en est trouvé simplifié. J'ai appris quelque chose. Mais il ne permet pas de lister les fichiers cachés, et c'est mon besoin. je suis passé par un "DIR ... /s", mais cette solution est assez lourde à mettre en oeuvre (code caractères, récupération des info, ..).
Merci pour l'exemple, il me sert Bernard
"Gilles LAURENT" <glsft@free.fr> a écrit dans le message de news: %23lhRkXcNHHA.3588@TK2MSFTNGP06.phx.gbl...
Ok, maintenant nous savons ce qu'est le TIF :-)
Le TIF est donc un dossier spécial contenant les Fichiers Internet
Temporaires
Les dossiers spéciaux sont facilement accessibles via le Shell
--- Coupez ici ---
Option Explicit
' déclaration des variables
Dim oShApp, oFolder, oFile
Dim colFiles
' initialisation des objets
Set oShApp = CreateObject ("Shell.Application")
Set oFolder = oShApp.Namespace (32) ' CSIDL du TIF
Set colFiles = oFolder.Items
' lecture des fichiers temporaires
For Each oFile In colFiles
WScript.Echo oFile.Name
Next
--- Coupez ici ---
Les constantes CSIDL :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
--
Gilles LAURENT
http://glsft.free.fr
Le script est très bien pour connaitre le répertoire temporaire de IE, mon Script s'en est trouvé simplifié.
J'ai appris quelque chose.
Mais il ne permet pas de lister les fichiers cachés, et c'est mon besoin.
je suis passé par un "DIR ... /s", mais cette solution est assez lourde à mettre en oeuvre (code caractères,
récupération des info, ..).
"Gilles LAURENT" a écrit dans le message de news: %
Ok, maintenant nous savons ce qu'est le TIF :-) Le TIF est donc un dossier spécial contenant les Fichiers Internet Temporaires Les dossiers spéciaux sont facilement accessibles via le Shell
--- Coupez ici ---
Option Explicit
' déclaration des variables Dim oShApp, oFolder, oFile Dim colFiles
' initialisation des objets Set oShApp = CreateObject ("Shell.Application") Set oFolder = oShApp.Namespace (32) ' CSIDL du TIF Set colFiles = oFolder.Items
' lecture des fichiers temporaires For Each oFile In colFiles WScript.Echo oFile.Name Next
--- Coupez ici ---
Les constantes CSIDL : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
-- Gilles LAURENT http://glsft.free.fr
Le script est très bien pour connaitre le répertoire temporaire de IE, mon Script s'en est trouvé simplifié. J'ai appris quelque chose. Mais il ne permet pas de lister les fichiers cachés, et c'est mon besoin. je suis passé par un "DIR ... /s", mais cette solution est assez lourde à mettre en oeuvre (code caractères, récupération des info, ..).
Merci pour l'exemple, il me sert Bernard
Gilles LAURENT
"Bernard59139" <bfermaut at free dot fr> a écrit dans le message de news:%
| Le script est très bien pour connaitre le répertoire temporaire de | IE, mon Script s'en est trouvé simplifié. J'ai appris quelque chose. | Mais il ne permet pas de lister les fichiers cachés, et c'est mon | besoin.
Voici donc la version récursive qui permet de lister tous les fichiers présents dans le dossier des fichiers temporaires Internet :
--- Coupez ici ---
Option Explicit
' déclaration des variables Dim oShApp, oFolder
' initialisation des objets Set oShApp = CreateObject ("Shell.Application") Set oFolder = oShApp.Namespace (32).Self
' parcours du dossier TIF de manière recursive RecurseDirectory (oFolder.Path)
' dir /s Sub RecurseDirectory (strFolder)
' déclaration des variables Dim oFs, oFolder, oFiles, oFile, oSubFolder Dim colFolders, colFiles
' initialisation Set oFs = CreateObject ("Scripting.FileSystemObject") Set oFolder = oFs.GetFolder (strFolder) Set colFolders = oFolder.SubFolders Set colFiles = oFolder.Files
' parcours des fichiers For Each oFile in colFiles WScript.Echo _ oFs.GetAbsolutePathName (strFolder) & _ "" & oFile.Name Next
' parcours récursif des sous-dossiers For Each oSubFolder in colFolders RecurseDirectory strFolder & "" & oSubFolder.name Next
End Sub
--- Coupez ici ---
-- Gilles LAURENT http://glsft.free.fr
"Bernard59139" <bfermaut at free dot fr> a écrit dans le message de
news:%23HXJL2kNHHA.3668@TK2MSFTNGP02.phx.gbl
| Le script est très bien pour connaitre le répertoire temporaire de
| IE, mon Script s'en est trouvé simplifié. J'ai appris quelque chose.
| Mais il ne permet pas de lister les fichiers cachés, et c'est mon
| besoin.
Voici donc la version récursive qui permet de lister tous les fichiers
présents dans le dossier des fichiers temporaires Internet :
--- Coupez ici ---
Option Explicit
' déclaration des variables
Dim oShApp, oFolder
' initialisation des objets
Set oShApp = CreateObject ("Shell.Application")
Set oFolder = oShApp.Namespace (32).Self
' parcours du dossier TIF de manière recursive
RecurseDirectory (oFolder.Path)
' dir /s
Sub RecurseDirectory (strFolder)
' déclaration des variables
Dim oFs, oFolder, oFiles, oFile, oSubFolder
Dim colFolders, colFiles
' initialisation
Set oFs = CreateObject ("Scripting.FileSystemObject")
Set oFolder = oFs.GetFolder (strFolder)
Set colFolders = oFolder.SubFolders
Set colFiles = oFolder.Files
' parcours des fichiers
For Each oFile in colFiles
WScript.Echo _
oFs.GetAbsolutePathName (strFolder) & _
"" & oFile.Name
Next
' parcours récursif des sous-dossiers
For Each oSubFolder in colFolders
RecurseDirectory strFolder & "" & oSubFolder.name
Next
"Bernard59139" <bfermaut at free dot fr> a écrit dans le message de news:%
| Le script est très bien pour connaitre le répertoire temporaire de | IE, mon Script s'en est trouvé simplifié. J'ai appris quelque chose. | Mais il ne permet pas de lister les fichiers cachés, et c'est mon | besoin.
Voici donc la version récursive qui permet de lister tous les fichiers présents dans le dossier des fichiers temporaires Internet :
--- Coupez ici ---
Option Explicit
' déclaration des variables Dim oShApp, oFolder
' initialisation des objets Set oShApp = CreateObject ("Shell.Application") Set oFolder = oShApp.Namespace (32).Self
' parcours du dossier TIF de manière recursive RecurseDirectory (oFolder.Path)
' dir /s Sub RecurseDirectory (strFolder)
' déclaration des variables Dim oFs, oFolder, oFiles, oFile, oSubFolder Dim colFolders, colFiles
' initialisation Set oFs = CreateObject ("Scripting.FileSystemObject") Set oFolder = oFs.GetFolder (strFolder) Set colFolders = oFolder.SubFolders Set colFiles = oFolder.Files
' parcours des fichiers For Each oFile in colFiles WScript.Echo _ oFs.GetAbsolutePathName (strFolder) & _ "" & oFile.Name Next
' parcours récursif des sous-dossiers For Each oSubFolder in colFolders RecurseDirectory strFolder & "" & oSubFolder.name Next
End Sub
--- Coupez ici ---
-- Gilles LAURENT http://glsft.free.fr
Jacques Barathon [MS]
"Bernard59139" <bfermaut at free dot fr> wrote in message news:%
Bonjour à tous
Existe-t-il un moyen simple de lister les fichiers cachés du TIF. Le *GetFolder* ne me donne que les noms de répertoire (et quelques autres bricoles).
Une version simple en PowerShell pour lister toute l'arborescence du TIF :-) :
Yaka taper ou copier+coller ça : dir "%userprofile%Local SettingsTemporary Internet Files" /s
-- @-salutations
Michel Claveau
Jean-Claude BELLAMY
Dans le message :, MC a pris la peine d'écrire ce qui suit :
Bonjour !
Yaka taper ou copier+coller ça : dir "%userprofile%Local SettingsTemporary Internet Files" /s
Non, car les TIF ne sont pas forcément dans le profil utilisateur !
P.ex. chez moi c'est "S:Temporary Internet Files" (partition poubelle commune à tout le monde)
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :mn.6a757d71230b461e.46195@XX.XmclaveauX.com,
MC <XX.XmcX@XX.XmclaveauX.com> a pris la peine d'écrire ce qui suit :
Bonjour !
Yaka taper ou copier+coller ça :
dir "%userprofile%Local SettingsTemporary Internet Files" /s
Non, car les TIF ne sont pas forcément dans le profil utilisateur !
P.ex. chez moi c'est "S:Temporary Internet Files"
(partition poubelle commune à tout le monde)
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :, MC a pris la peine d'écrire ce qui suit :
Bonjour !
Yaka taper ou copier+coller ça : dir "%userprofile%Local SettingsTemporary Internet Files" /s
Non, car les TIF ne sont pas forcément dans le profil utilisateur !
P.ex. chez moi c'est "S:Temporary Internet Files" (partition poubelle commune à tout le monde)
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Bernard59139
Honte à moi. Le script sur lequel je travaillai a été manipulé par un de mes collégues (suite à un pari stupide, et il a gagné une chope). Il a introduit des caractères zarbis dans le vbs. En EDIT, je n'ai rien vu, j'ai cherché pendant de longs moments (pas trop).
Merci aux contributeurs pour leur présence
Bernard
Honte à moi.
Le script sur lequel je travaillai a été manipulé par un de mes collégues (suite à un pari stupide, et il a gagné une
chope). Il a introduit des caractères zarbis dans le vbs. En EDIT, je n'ai rien vu, j'ai cherché pendant de longs
moments (pas trop).
Honte à moi. Le script sur lequel je travaillai a été manipulé par un de mes collégues (suite à un pari stupide, et il a gagné une chope). Il a introduit des caractères zarbis dans le vbs. En EDIT, je n'ai rien vu, j'ai cherché pendant de longs moments (pas trop).
