Voila J'ai un logiciel mais il faut un fichier texte a coté si il y est pas le programme plante en utilisant 99% d'utilisation du proco. Je veut pas le crée je veut juste quelque ligne pour pouvoir detecter un fichier. Et apres avec le if je choisit si le programme se ferme si ya pas le fichier text ou continue si il le trouve. voila ciao
Publicité
Posté le 13-02-2005 à 14:48:13
betsamee
Asterisk Zeperyl
Posté le 13-02-2005 à 16:23:28
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject" )
Set f = fs.GetFolder("chemin_du_repertoire_ou_il_doit_etre" )
Set fc = f.Files
For Each f1 In fc
If InStr(1, f1.Name, ".txt" ) Then
'sors de ton programme
End If
Next
lunix546
Posté le 13-02-2005 à 18:29:57
ok merci betsamee
Profil supprimé
Posté le 13-02-2005 à 18:42:46
qu'est ce qui utilise ton cpu à 99%? pas possible ?
si c'est ton appli qui utilise cette consommation sans que l'appli fasse quoi que ce soit j'ai un truc pour toi
lunix546
Posté le 13-02-2005 à 19:58:29
nan c bon sa ira parce ke si il me trouve pas le fichier text a coté il marcera mal donc je prèfère faire un system pour ke le fichier y soit obligatoirement.