サブフォルダの親フォルダを変えたい
フォルダの中のサブフォルダを取得してくて、
http://officetanaka.net/excel/vba/tips/tips95.htm
の
---------------------------------------------------------
Sub Sample4()
Dim buf As String, msg As String
buf = Dir("*.*", vbDirectory)
Do While buf <> ""
If InStr(buf, ".") = 0 Then msg = msg & buf & vbCrLf
buf = Dir()
Loop
MsgBox msg
End Sub
---------------------------------------------------------
をやってみたら、サブフォルダを取得できたのですが、
上記のコードを実行すると
元々のフォルダのパスが「C:\Users」で、
「C:\Users」のサブフォルダが取得されてしまいます。
でも上記のコードでは、「C:\Users」は指定してないと思うのですが、
なぜ「C:\Users」のサブフォルダが取得されてしまうのでしょうか?
例えば
「C:\Users」ではなく、「C:\Program Files」のサブフォルダを取得するには、
どのようにコードを書き換えればいいのでしょうか?
ご教授よろしくお願いします。
お礼
Windowsにサインインする複数ユーザーアカウントを作成している場合はその分だけC:\Usersにユーザーのアカウント情報を収めたフォルダが作成されます ありががとうございました。理解できました。