Как использовать VBscript для преобразования содержимого содержимого папки в текстовый файл. Он также должен извлекать только тип файла «outlook Item»

Question

Я создал свой визуальный базовый скрипт, который выберет все файлы из папки C: и преобразует их в текстовый файл. Это работает только для одного пути к папке, и я не могу создать его для двух путей. Мой текстовый файл также содержит все файлы с размерами файлов из папки C: но мне нужен только «элемент Outlook» из папки C: для извлечения в текст. Посмотрите мой сценарий ниже;

Sub Tester() 

Dim ObjOutFile 

    Set ObjOutFile = CreateObject("Scripting.FileSystemObject"). _ 
        CreateTextFile("D:\Users\User\Desktop\outcome.txt") 

    ListFiles ObjOutFile, "D:\MOV1", "Outlook Item" 
    ListFiles ObjOutFile, "D:\MOV2", "Outlook Item" 

    ObjOutFile.Close 

End Sub 


Sub ListFiles(f, folderPath As String, fileType As String) 
Dim ObjFiles, ObjFile, sz 

    fileType = UCase(fileType) 
    Set ObjFiles = CreateObject("Scripting.FileSystemObject") _ 
           .getfolder(folderPath).Files 

    For Each ObjFile In ObjFiles 
     If UCase(ObjFile.Type) = fileType Then 
      sz = Round(ObjFile.Size/1024, 2) 
      f.WriteLine sz & String(50 - Len(sz), " ") & ObjFile.Path 
     End If 
    Next 

End Sub 

Answer 1

Sub Tester() 

Dim ObjOutFile 

    Set ObjOutFile = CreateObject("Scripting.FileSystemObject"). _ 
        CreateTextFile("C:\Users\User\Desktop\outcome") 

    ListFiles ObjOutFile, "C:\Users\User\Desktop\Folder A", "Outlook Item" 
    ListFiles ObjOutFile, "C:\Users\User\Desktop\Folder B", "Outlook Item" 

    ObjOutFile.Close 

End Sub 


Sub ListFiles(f, folderPath As String, fileType As String) 
Dim ObjFiles, ObjFile, sz 

    fileType = UCase(fileType) 
    Set ObjFiles = CreateObject("Scripting.FileSystemObject") _ 
           .getfolder(folderPath).Files 

    For Each ObjFile In ObjFiles 
     If UCase(ObjFile.Type) = fileType Then 
      sz = Round(ObjFile.Size/1024, 2) 
      f.WriteLine sz & String(50 - Len(sz), " ") & ObjFile.Path 
     End If 
    Next 

End Sub