Sub ShowFileList()
Dim fs, f, f1, fc, s
Dim folderspec As String
folderspec = "C:\Users\ofu1\Desktop\Ａ帳票設計書修正\設計書_SRA16_BK"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
MsgBox f1.Name
Next
End Sub