cs_yonel
Messages postés7Date d'inscriptionmardi 1 avril 2003StatutMembreDernière intervention 8 novembre 2006
-
27 oct. 2005 à 10:35
cs_yonel
Messages postés7Date d'inscriptionmardi 1 avril 2003StatutMembreDernière intervention 8 novembre 2006
-
2 nov. 2005 à 09:16
Bonjour.
Voici mon code: je liste la totalité des répertoires, mais après je ne veux garder que ceux qui commence par ISTP_E (il y a ISTP_E2003, ISTP_E2004, ISTP_E2005, ...)
Comment dois-je faire pour filtrer?
Merci
<%
Dim oFSO
Dim oFileItem
Dim oFolder
Dim oSubFolder
Dim oDrive
Dim CurrentPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
CurrentPath = "X:\Plannings"
Set oFolder = oFSO.GetFolder(CurrentPath)
Set oFolderContents = oFolder.Files
For Each oSubFolder in oFolder.SubFolders
'if oSubFolder.Name = "ISTP_E...." then
%>
Folder.gif">