EXCEL VBAでフォルダ操作をする方法とは？

質問

• EXCEL VBAでフォルダ操作を行う方法について教えてください。
• フォルダ内にある複数のフォルダを順番に開く方法についても知りたいです。
• フォルダ名を連番にする方法も教えていただけると助かります。

回答No.5

takibo

何度もすみません。一部間違っていました。こちらに置き換えてください。

Sub サブフォルダ取得()
Dim パス As String
Dim objA As Object
Dim objF As Object
Dim myFSO As New FileSystemObject
Dim myFld As Folder
Dim i As Integer
　　Set objA = CreateObject("Shell.application")
　　Set objF = objA.BrowseForFolder(0, "フォルダを選択してください", 0)
　　If Not objF Is Nothing Then
　　　　パス = objF.items.Item.Path
　　End If
　　If パス = "" Then
　　　　Exit Sub
　　Else
　　　　If Right(パス, 1) <> "\" Then
　　　　　　パス = パス & "\"
　　　　End If
　　End If
　　Sheets("sheet1").Cells.ClearContents
　　Range("A1").Select
　　i = i
　　With myFSO.GetFolder(パス)
　　　　For Each myFld In .SubFolders
　　　　　　i = i + 1
　　　　　　Cells(i, 1).Value = myFld.Name
　　　　　　Cells(i, 2).Value = パス & myFld.Name & "\"
　　　　Next
　　End With
End Sub

補足

takiboさん、たびたびお世話をおかけしてすみません。

当方のOSはWindows2000 professional
Excelは2002、Visual Basicは6.0（念の為）です。

お送り頂いたコードで試してみましたが
「Dim myFSO As New FileSystemObject」のところで
「コンパイルエラー：ユーザー定義型は定義されていません」 と出てしまいます。

やはり、バージョンによって出来ないとかが関係してるのでしょうかねー？

こうなると、私には全くさっぱりわからない範疇になってしまってます…。