Tester si un fichier dont le nom est incomplet existe
cs_Darkukai
Messages postés38Date d'inscriptionvendredi 27 septembre 2002StatutMembreDernière intervention29 mai 2006
-
16 juil. 2003 à 11:54
cs_zephyrin
Messages postés47Date d'inscriptionmercredi 29 mai 2002StatutMembreDernière intervention17 août 2006
-
17 juil. 2003 à 10:38
je m'explique
j'ai 3 fichiers
c:\toto123
c:\toto452
c:\toto678
j'aimerais tester si un fichier du nom de toto* existe peut importe le numéro qui suit.
Je sais qu'il exist FileExists() et Dir() mais j'ai pas réussi a m'en servir
a priori dir() marche mais par exemple pour des cas comme çà dir("c:\*.ini")
cs_doct
Messages postés12Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention16 juillet 2003 16 juil. 2003 à 12:49
emploie la fonction "Dir()" et pour chaque nom de fichier reçu, tu fais une vérification afin de détecter si le fichier commence bien par "toto"
ex :
Dim sTmp as string
sTmp = Dir("c:")
'vérification
if left(sTmp,4) = "toto" then
'...
end if
pour recevoir les autres fichiers du répertoire, il suffit d'appeler la fonction Dir() sans arguments : sTmp = Dir()
et ce jusqu'à ce qu'elle te renvoie une chaine de longueur nulle.
cs_zephyrin
Messages postés47Date d'inscriptionmercredi 29 mai 2002StatutMembreDernière intervention17 août 2006 17 juil. 2003 à 10:38
Autre solution :
ajoute la référence : Microsoft Scrpiting Runtime
Public Function glFichierExisteTester(ByVal rep As String, ByVal fic As String) As Long
dim mfsysObject As New Scripting.FileSystemObject
If mfsysObject.FolderExists(rep) = False Then
glFichierExisteTester = 1
ElseIf mfsysObject.FileExists(rep & "" & fic) = False Then
glFichierExisteTester = 1
Else
glFichierExisteTester = 0
End If
End Function
FileExists et FolderExist acceptent '*', '?'... voir leur aide bien détaillée.