Comment puis-je m'assurer d'ouvrir uniquement des fichiers texte lorsque je travaille avec FSO - VBA

Question

J'ai actuellement un script qui utilise FSO, mais il ouvre aussi les fichiers .xlsm dans mon répertoire de travail. Je voudrais seulement ouvrir les fichiers .txt.

Je trouve ce code qui devrait fonctionner, mais je ne peux pas comprendre comment l'appliquer à ma situation:

Sub test() 
    ' Loop thru all files in the folder 
    folder = ActiveWorkbook.path 

    path = folder & "\*.txt" 

    Filename = Dir(path) 

    Do While Filename <> "" 
     'insert other functions here 
    Loop 

End Sub 

---

Mon code (Works, mais ouvre également .xlsm les fichiers, que je ne veux pas faire):

Option Explicit 

Sub Initialize_barcode_lookup_Array_test() 

Dim fso As FileSystemObject 
Dim folder As String, path As String, count_txt_files As Long, Filename As String 
Dim folder2 As folder 
Dim file As file 
Dim FileText As TextStream 
Dim TextLine As String 
Dim Items() As String 
Dim ShippingPlanArray() As String 
Dim i As Long, j As Long, k As Long 
Dim cl As Range 
Dim fName 
Dim row As Long, column As Long 

Dim shipping_plan As Long  'Number of shipping plans text files imported 
Dim barcode_Lookup() As String 
Dim lastRow As Long 
Dim longest_lastRow As Long 
Dim counter As Long 
Dim FNSKU_Input As String 

'<<<< Creating FSO Object >>>>> 
    'Define longest_lastRow 
    longest_lastRow = 0 

    'Define i (References the text file open) 
    i = 0 

    ' Get a FileSystem object 
    Set fso = New FileSystemObject 

    ' get the directory you want 
    Set folder2 = fso.GetFolder(ActiveWorkbook.path) 

    ' Loop only while the files being opened are .txt files: 

    For Each file In folder2.Files 

     row = 0 
     column = 0 

     Set FileText = file.OpenAsTextStream(ForReading) 
     Do Until FileText.AtEndOfStream 

      fName = FileText.ReadLine 
      'Parse data by tabs (text-tab delimited) into Items() array 
      Items() = Split(fName, vbTab) 

       ' Redimension Preserve the ShippingPlanArray() 
       ' NOTE: You can only Redimension preserve the last dimension of a multi-dimensional array 
       ' (In this case: row) 
       ReDim Preserve ShippingPlanArray(9, row) 

       'Read Data into an Array Variable 
       For column = LBound(Items) To UBound(Items) 
       'MsgBox Items(column) 
       ShippingPlanArray(column, row) = Items(column) 
       Next column 

      row = row + 1 
     Loop 

    Next file 



End Sub 

Answer 1

Je ne sais pas si le support FSO une méthode surchargée pour GetFolder où vous pouvez spécifier le motif. Si c'est le cas, utilisez cela, c'est-à-dire GetFolder (Path, "* .txt"). Si ce n'est pas le cas, ne pouvez-vous pas simplement ajouter une simple condition pour vérifier l'extension du fichier dans votre boucle 'for each' et ne traiter que celles qui se terminent par '.txt'.

Mise à jour:

Essayez ceci:

For Each file In folder2.Files 
    Dim extension As String 
    extension = LCase(Mid$(file, InStrRev(file, "."))) 
    If extension = ".txt" Then 
     Debug.Print "TEST" 
    End If 
Next 

Je l'ai testé et il fonctionne comme prévu.