recherche de fichiers

Question

Salut &#224; tous,



je fais un code qui permet de transf&#233;rer des fichiers (quelque soit
leur extansion) d'un sous repertoire &#224; un autre si bien sur les
fichiers existent.

Je voulais faire de la facon suivante :

set fs = createobject("scripting.filesystemobject)

toto=fs.fileexists("c:\repertoire\*.*")

si toto vrai alors transf&#233;rer.

Hors toto est tjrs faux car il semble que les caract&#232;tres g&#233;n&#233;riques ne peuvent &#234;tre utilis&#233;s dans ce cas la;

merci de votre aide

wx

cs_DARKSIDIOUS · Answer

utilise plut&#244;t la fonction Dir pour &#233;num&#233;rer tout les fichiers d'un
r&#233;pertoire, elle est fa&#238;te pour c&#224;, car le FileExists te permet juste
de savoir si un fichier existe, et non pas de retourner tout les
fichiers d'un r&#233;pertoire !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jpleroisse · Answer

Bonjour,

Vois si ce code te convient (peut-&#234;tre l'am&#233;liorer)



Private Sub Command1_Click()

If Dir("c:\Text1.txt", vbHidden) <> "" Then

MsgBox "Le fichier existe"  'le fichier existe (vbHidden permet de le retrouver m&#234;me s'il est cach&#233;)

FileCopy "c:\Text1.txt", "c:\Mes documents\Text1.txt"

Else

MsgBox "Le fichier n'existe pas"

End If

End Sub



jpleroisse





Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Recherche de fichiers

2 réponses

Discussions similaires