|
ichinose さん、こんにちは。
お返事ありがとうございます。
>私の環境では、正常にさどうしていますけどねえ!!
やっぱり私の方はだめです。。。なぜ、私の方ではダメなのでしょうか。。。
>これで再度試してみてください。
>
>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
トライさせていただきました。
これは何の問題もなく、動作しました。
objFSOをCreateObjectで行うのと、
New FileSystemObject でするのとは
何が変わってくるのですか?
すみません。教えてください。
よろしくお願いします。
|
|