VBAフォルダ名にワイルドカードを使用する

Question

これまでのところ、ワイルドカードをファイル名（どのように使用するのか知っています）で使用する方法と仕事の援助方法が多数見つかりましたが、フォルダパスで使用するにはほとんど問題はありません。これは私のコードです：

myFolder = Cells(k, 7) 

    Archive_Path_0 = "C:\New Folder\" & myFolder & "* \" 'wildcard in folder name 

    myFileName = Cells(r, 8) 

    CountName = Len(myFileName) 

    Windows(myFileName).Activate 

    ActiveWorkbook.SaveAs Archive_Path_0 & Left(myFileName, CountName - 4) & " AFTER.xls" 

myFolderは、Excelのスプレッドシートとその定数から得ることができる変数です。 myFileNameをmyFolderという場所に保存したいのですが、他の人が変更または変更できるフルネームのちょうど部分的な名前です。これを解決するアイデア？

Answer 1

これは私を助けてくれるコードです！

Sub ShowFolderList() 
Dim fs, f, f1, s, sf As Object 
folderspec = "C:\windows\" 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(folderspec) 
Set sf = f.SubFolders 
NextRow = 2 
i = 2 
Do While Cells(i, 2) <> "" 
    Fund = Cells(i, 2) 
    For Each f1 In sf 
     s = s & f1.Name 
     If Left(s, 4) = Fund Then 
      Cells(i, 3).Value = s 
     End If 
     s = "" 
     NextRow = NextRow + 1 
    Next f1 
    i = i + 1 
    NextRow = 2 
Loop 
MsgBox ("Done!") 

私はあなたが何を意味従わない