FileExists > rechercher la présence de fichier dans un répertoire.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : FileExists > rechercher la présence de fichier dans un répertoire.

ikao2

okaïdi okaïda

Bonjour !

Je suis tout nouveau en VB script. Je ne suis pas en train d'apprendre ce langage, mais je l'utilise pour faire certaines actions dans un installeur. (package *.msi).

Certains cas de mon installation sont conditionnés par la présence de fichiers (dont je ne connais pas forcement le nom) dans un certain dossier (dont je connais le chemin).
Ce que je cherche à faire, c'est tout simplement d'aller dans ce dossier et regarder si il y a quelque chose dedans (un fichier quelconque).

J'ai donc écrit le bout de programme suivant :

Code :

Set fso = CreateObject("Scripting.FileSystemObject" )
If (fso.FileExists("c:\PROG2\yop.txt" )) Then
msgbox "oui"
Else
msgbox "non"
End If

Et c'est cool, ca marche, il detecte bien le fichier quand il est là.

Bon, ensuite, j'ai tenté (en croisant trés fort les doigts) un :

Code :

Set fso = CreateObject("Scripting.FileSystemObject" )
If (fso.FileExists("c:\PROG2\*.*" )) Then <<<<< ca a changé là.
msgbox "oui"
Else
msgbox "non"
End If

Mais apparemment, c'était trop facile. J'ai donc cherché un peu à gauche et à droite, mais sans trouver d'info. Donc si vous avez une piste, un site ou carrement la réponse sous la main, je suis preneur :-) !

merci ! :hello:

Publicité

Swim

Essaye avec la fonction Dir:

Code :

String monfichier
monfichier=Dir("c:\PROG2\*.*" )
If monfichier <> "" Then
msgbox "oui"
Else
msgbox "non"
End If

Message édité par Swim le 09-08-2005 à 13:50:30

ikao2

okaïdi okaïda

Ca ne fonctionne pas, et sur le net, je trouve pas mal de monde qui voulait utiliser cette fonction et à qui on conseille d'utiliser l'objet "FileSystemObject", mais sans pour autant donner une solution :-)

Mais je viens de penser à un truc, au lieu de chercher si un fichier est présent, on peut regarder si le dossier est vide (ok, ca paraît bète dit comme ca, mais l'un fait appel à des fonctions de fichiers, et l'autre à des fonctions de dossier).

Si vous avez un truc du genre "isEmpty", ca serait cool :-) Je croyais avoir vu ca au cours de mes pérégrinations , mais impossible de remettre la main dessus (si effectivement ca existe).

Une autre idée ou une astuce pour faire fonctionner Dir ?

ikao2

okaïdi okaïda

J'ai réussi à écrire un bout de code qui me permet d'avoir ce que je veux, mais ca n'est pas trés "propre", donc si vous avez mieux :

Code :

set fso = CreateObject("Scripting.FileSystemObject" )
rep = "c:\PROG1"
dim f, ff
set f = fso.GetFolder(rep).Files
For Each ff In f
lit_fic = lit_fic & ff.Path & " - "
Next
if (lit_fic="" ) then
msgbox "Il n'y a pas de fichiers dans le dossier " & rep
else
msgbox "Il y a bien au moins un fichier dans le dossier " & rep & " et en voici la liste : " & lit_fic
end if

Mais comme vous le voyez, on énumère tous les fichiers, or moins je voudrais juste vérifier si le dossier est vide ou pas :-/

mareek

Et de 3 \o/

Dir ne fonctionne pas en VBS, tu dois tout faire avec le FSO.

Pour faire ce que tu veux il faut récupérer l'objet folder de ton dossier et de regarder s'il y a de fichiers dedans comme ça:

Code :

set oFolder=oFSO.GetFolder("c:\PROG2" )
if oFolder.files.count>0 then
msgbox "oui"
Else
msgbox "non"
End If

Pour plus d'infos, la doc du FSO:
http://msdn.microsoft.com/library/default.asp

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

c_moa

fso effectivement

Code :

Wscript.Echo "Nombre de fichiers dans c:\ " & Nombre_fichiers("c:\" )
Function Nombre_fichiers(dossier)
Dim fso, f, f1, fc, s , nb_fichiers
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(dossier)
Set fc = f.Files
nb_fichiers=0
For Each f1 in fc
nb_fichiers = nb_fichiers + 1
Next
Nombre_fichiers = nb_fichiers
End Function

mareek

Et de 3 \o/

c_moa a écrit :

fso effectivement

Code :

Wscript.Echo "Nombre de fichiers dans c:\ " & Nombre_fichiers("c:\" )
Function Nombre_fichiers(dossier)
Dim fso, f, f1, fc, s , nb_fichiers
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(dossier)
Set fc = f.Files
nb_fichiers=0
For Each f1 in fc
nb_fichiers = nb_fichiers + 1
Next
Nombre_fichiers = nb_fichiers
End Function

il y a plus simple :

Code :

Wscript.Echo "Nombre de fichiers dans c:\ " & Nombre_fichiers("c:\" )
Function Nombre_fichiers(dossier)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(dossier)
Nombre_fichiers = f.Files.count
End Function

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

ikao2

okaïdi okaïda

Ok, merci beaucoup, je vais voir ca !

c_moa

Merci mareek,
Ma fonction avait été codée dans l'urgence.
Je n'avais pas vu le count dans le ( la ) msdn.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

FileExists > rechercher la présence de fichier dans un répertoire.

Sujets relatifs
fichier dans .jar	Ecrire dans un fichier sur un client
URL fichier distant	imprimer un fichier distant
un code a modifier... listage fichier	[php] Ecrire dans un fichier lancer par un header !
Impossible d'ouvrir un fichier s'il est inclus dans une archive .jar	virer/reduire le fichier idbdata1 (MySQL)
Lecture d'hexa dans un fichier	Test de présence de paramètre de type '&1' en SQL
Plus de sujets relatifs à : FileExists > rechercher la présence de fichier dans un répertoire.

Page générée en 0.074 secondes