Matteo
-
9 mars 2001 à 17:03
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015
-
23 avril 2003 à 12:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 23 avril 2003 à 12:45
FSO hein ? normal l'été arrive ... :)
+²
BinOff
Messages postés25Date d'inscriptionmardi 24 juillet 2001StatutMembreDernière intervention13 décembre 2007 2 mars 2002 à 16:06
FSO est incompatible avec Windows 95....
Vaut mieux utiliser la bonne vieille méthode avec DIR.
Perso, c celle que je préfère.
Je trouve que la méthode avec la fonction LEN est bien moins interressante (il y en a de proposées sur ce site).
Enfin faites ce que vous voulez ... ;-)
Meme si Win95 est de moins en moins utilisé...
cs_IZNOGOOD
Messages postés3Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention 7 mars 2002 27 févr. 2002 à 22:44
Tu peux essayer avec un file system object ...
Public Function bPuGetIsFileExist(ByVal sFile As String) As Boolean
On Error GoTo bPuErGetIsFileExist
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
bPuGetIsFileExist = fs.FileExists(sFile)
Exit Function
bPuErGetIsFileExist:
bPuGetIsFileExist = False
End Function
Tu passe ton fichier en parametre (path+fichier)
gcorp
Messages postés7Date d'inscriptiondimanche 30 décembre 2001StatutMembreDernière intervention13 janvier 2002 30 déc. 2001 à 08:34
ça marche pas ce truc avec moi : la fonction dir ne me renvoie jamais "" mais le nom du premier fichier du répertoire du projet ?!!? :-(
Quelqu'un sait-il où j'ai pu me planter ?
23 avril 2003 à 12:45
+²
2 mars 2002 à 16:06
Vaut mieux utiliser la bonne vieille méthode avec DIR.
Perso, c celle que je préfère.
Je trouve que la méthode avec la fonction LEN est bien moins interressante (il y en a de proposées sur ce site).
Enfin faites ce que vous voulez ... ;-)
Meme si Win95 est de moins en moins utilisé...
27 févr. 2002 à 22:44
Public Function bPuGetIsFileExist(ByVal sFile As String) As Boolean
On Error GoTo bPuErGetIsFileExist
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
bPuGetIsFileExist = fs.FileExists(sFile)
Exit Function
bPuErGetIsFileExist:
bPuGetIsFileExist = False
End Function
Tu passe ton fichier en parametre (path+fichier)
30 déc. 2001 à 08:34
Quelqu'un sait-il où j'ai pu me planter ?
9 mars 2001 à 17:03