Help en VBScript SVP !!

Question

Bonjour voici mon souci :

Je voudrais retrouver dans un certain dossier tous les fichiers d'un meme type.

Ex: avoir la liste de tous mes gif dans mon dossier image, et non d'avoir tous mes jpg,bmp,gif,...

Voici mon 1er prog (il a quelque erreur mais il marche):
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\image")
Set objFSO = CreateObject("Scripting.FileSystemObject")
SET Rapport = ObjFSO.OpenTextFile("C:\Documents and Settings\Thomas\Desktop	est2.xls",2,TRUE,0)

Dim arrHeaders(13)

For i = 0 to 13
    arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next

For Each strFileName in objFolder.Items
    For i = 0 to 13
        If i <> 9 then
           Rapport.writeline arrHeaders(i) _
                & ": " & objFolder.GetDetailsOf (strFileName, i)
        End If
    Next
Next
objFile.Name

Ce prog me donne toute les infos sur les images du dossier (ce que je veux) mais le hic y a les autres types de fichier non souhait&#233;.

Voici donc mon 2nd prog (celui ci sans erreur) :
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
SET Rapport = ObjFSO.OpenTextFile("C:\Documents and Settings\T5784900\Desktopapport.xls",2,TRUE,0)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}\" & strComputer & "oot\cimv2")


Set colFiles = objWMIService.ExecQuery _ 
 ("Select * from CIM_DataFile where Extension = 'gif'") 


For Each objFile in colFiles 
 Rapport.writeline objFile.Name
Next 

Ce prog me donne bien toutes mes images gif (mais sans le detail du 1er prog) et il recherche dans tous les autres disques toutes les images gif.

donc ma question au final : C possible un mixe des 2 pour n'en faire qu'un ??

Merci d'avance pour les reponses  

PS: C la 1er fois que je fais du VBScript donc pour toutes les erreurs que vous voyez merci de me les dire SVP ou comment ameliorer mes prog si possible.

Ant8386 · Answer

Essaies &#231;a

Dim fso

set fso = Server.CreateObject("Scripting.FileSystemObject")

 if fso.FolderExists(le_chemin_de_ton_dossier) then
  
  'Le chemin est un dossier valide
  set folder = fso.GetFolder(p_path)

end if

for each file_item in folder.Files 

   set fso2 = Server.CreateObject("Scripting.FileSystemObject")
   file_extension = LCase(fso2.GetExtensionName(file_item))
  
   if file_extension = "gif" then

      'Ici tu affiches   

   end if

next

Bon courage !

cs_JMO · Answer

Bonjour ...
Sur me m&#234;me principe que Ant8386

Set Fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set Afolder = fso.GetFolder("d:\zz")


Recherche AFolder
Function Recherche (ByRef AFolder)
For Each AFile In AFolder.Files
If  UCase(FSO.GetExtensionName(AFile.Path)) = "GIF" Then
MsgBox AFile.Path
End if
Next
For Each SubF In AFolder.SubFolders
Recherche SubF
Next
End Function

cs_chamcham · Answer

Merci bcp pour vos aides.
Ceci marche parfaitement bien (c pas comme mes programmes  )

cs_chamcham · Answer

J'ai encore besoin de vous car j'ai adapt&#233; vos prog avec le mien mais mon souci et que je genere un fichier Excel pour avoir le resultat et dans celui ci je souhait avoir les details du fichier.

Voici un resultat souhait&#233; dans mon fichier Excel gen&#233;r&#233; :

C:\image
ew_018.gif
Name : new_018.gif
Size : 9 Ko
Type : Fichier GIF
Date Modified : 30/01/2006 15:56
Date Created : 30/01/2006 15:56
Date Accessed : 13/03/2006 16:37
Attributes : A
Status : Connect&#233;
Owner : chamcham
Title :
Subject : 
Category : 
Pages : 

et voici mon prog, je sent que je suis pas loin mais vue que le VBScript et moi c  j'ai un peu de mal.

Set objShell = CreateObject ("Shell.Application")
Set Fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set Afolder = fso.GetFolder("C:\image")
Set objFolder = objShell.Namespace ("C:\image")
Set objFSO = CreateObject("Scripting.FileSystemObject")
SET Rapport = ObjFSO.OpenTextFile("C:\Documents and Settings\Thomas\Desktop\autre.xls",2,TRUE,0)


Dim arrHeaders(13)


Recherche AFolder
Function Recherche (ByRef AFolder)


For i = 0 to 13
    arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next


For Each AFile In AFolder.Files
If  UCase(FSO.GetExtensionName(AFile.Path)) = "RPT" Then
Rapport.writeline AFile.path
For i = 0 to 13
        If i <> 9 then
           Rapport.writeline arrHeaders(i) _
                & ": " & objFolder.GetDetailsOf (strFilename, i)
        End If
    Next
End if
Next


For Each SubF In AFolder.SubFolders
Recherche SubF
Next
End Function

Merci pour l'aide ou pour les remarques

Help en VBScript SVP !!

4 réponses

Discussions similaires