Comment rechercher un fichier dans le chemin spécifié?

Question

UTILISATION DE VB6

Je souhaite rechercher un fichier à partir du chemin.

Par exemple.

Path = "C: \ newFolder \" nom de fichier = * .txt, * .fin

Je veux tous les fichiers * .txt, * fichier .fin du newfloder.

Besoin de code VB6 Aide.

Answer 1

Utilisez Scripting.FileSystemObject.

Appelez-le avec GetFolder ("C: \ Newfolder"), puis passez en revue les fichiers de ce dossier avec la propriété .Files et filtrez-les sur les extensions à l'aide de la méthode GetExtensionName.

Par exemple:

Dim fso as Object: Set fso = CreateObject("Scripting.FileSystemObject") 
Dim f as Object 
For Each f in fso.GetFolder("<folderpath>").Files 
    If fso.GetExtensionName(f.Path) = "txt" Then 'or maybe it's .txt, I'm not sure 
     ' also test for 'fin' 
     '... do stuff 
    End If 
Next f 

Answer 2

Vérifiez la Scripting.FileSystemObject.
Dans votre projet, ajoutez une référence à "Microsoft Scripting Runtime".

Ensuite, vous pouvez faire quelque chose comme ceci:

Dim fso As Scripting.FileSystemObject 
Set fso = New Scripting.FileSystemObject 

Dim fld As Scripting.Folder 
Set fld = fso.GetFolder("d:\temp\newfolder") 

Dim i As Integer 
Dim ext As String 
Dim fl As Scripting.File 
For Each fl In fld.files 
    'get extension 
    ext = Mid(fl.Name, Len(fl.Name) - 2) 
    If ext = "txt" Or ext = "fin" Then 
     'do something with the file 
    End If 
Next fl 

Ceci est l'un des domaines qui a obtenu tellement mieux avec .NET.

Answer 3

Ajoutez simplement un CDirDrill class qui fait tout pour vous, en VB6 natif complet. Une autre excellente solution de Karl Peterson :)

Le FileSystemObject n'est pas recommandé pour plusieurs raisons: un, il ajoute une dépendance, et deux, cela dépend du script, qui peut être désactivé par stratégie. J'ai eu des bogues parce que certains clients ont réussi à nettoyer scrrun.dll sur leur PC. Éliminer les dépendances à moins qu'elles ne vous aident vraiment beaucoup.

BTW cette question est un double de this