Détecter un fichier .txt?????

Détecter un fichier .txt????? - VB/VBA/VBS - Programmation

Marsh Posté le 13-02-2005 à 14:48:13    

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

Reply

Marsh Posté le 13-02-2005 à 14:48:13   

Reply

Marsh 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

Reply

Marsh Posté le 13-02-2005 à 18:29:57    

ok merci betsamee :D

Reply

Marsh 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 :)

Reply

Marsh 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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed