| |
Jakaさんが一人でがんばっているみたいなので･･･
私も一点。
FAQであるFilePathを列挙するサンプルです。
【その１ FSO Version】
【要参照】「Microsoft Scripting Runtime」
'呼び出し用
Sub CallFilePathList1()
Dim objFSO As FileSystemObject
Dim strTargetPath As String '対象フォルダパス
Set objFSO = New FileSystemObject
Call EnumFilePathList1(objFSO.GetFolder(strTargetPath))
End Sub
'本体
Sub EnumFilePathList1(objFolder As Folder)
Dim objTargetFile As File
Dim objSubFolder As Folder
'ファイル名を列挙
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
非常にシンプルで不具合も少ないのですが、
速度が非常に遅いのがネックです。
(初心者にもっともお勧め･･･)
|
|
ちゃっぴ
- 04/9/13(月) 23:57 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
≪
