Microsoft Office Excel

フォルダ一覧を取得する †

[edit]

'検索対象のパス
Dim targetPath As Variant
targetPath = "C:\Temp"

'フォルダ一覧のオブジェクト
Dim Folder_Collection As Object
Set Folder_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(targetPath).SubFolders

'フォルダを列挙する
For Each Folder_List In Folder_Collection
  ...省略...
Next

ファイル一覧を取得する †

[edit]

'検索対象のパス
Dim strPathName As String
strPathName = "C:\Temp"

Set File_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(strPathName).Files
For Each File_List In File_Collection
  ...省略...
Next

コメント：

お名前:

(画像の文字列を入力して下さい)