07/09/08 07:14:41
>>889
Dim FSO As Object
Dim Fds As Object
Dim Fd As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fds = FSO.GetFolder(FdPath) 'Fdpathにフォルダのパスを指定
For Each Fd In Fds.SubFolders
Fd.Name '←サブフォルダフォルダの名前。やりたい処理を書く。AddiItemとか
Next Fd
Set FSO = Nothing
Set Fds = Nothing
まぁ、間違ってるかもしれないけど。
誰か>>861
スレ違い？