|
▼もとあし さん:
こんばんは。
私の環境では、正常にさどうしていますけどねえ!!
>どうして、型が一致しないのか、よく分からないのです。
>それが何か自分で分からないので、すみません。教えていただけませんか?
>よろしくお願いします。
これで再度試してみてください。
Sub CallFilePathList1()
Dim objFSO As Object
Dim strTargetPath As Variant '対象フォルダパス
strTargetPath = "k:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call EnumFilePathList1(objFSO.GetFolder(strTargetPath))
End Sub
'本体
Sub EnumFilePathList1(objFolder As Object)
Dim objTargetFile As File
Dim objSubFolder As Folder
'ファイル名を列挙
On Error Resume Next
For Each objTargetFile In objFolder.Files
Debug.Print objTargetFile.Path
Next objTargetFile
'サブフォルダを検索
For Each objSubFolder In objFolder.SubFolders
Call EnumFilePathList1(objSubFolder)
Next objSubFolder
End Sub
|
|