Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49508 / 76732

←次へ　｜　前へ→


	【32134】Re:ネットワーク上のフォルダが認識でき...

ponpon - 05/12/6(火) 21:31 -


	引用なし

	パスワード

こんばんは。

>Cells(D, 8)には、\\＜コンピュータ名＞\temp
Dが変数なら別ですが、Cells(8,"D")の間違いでは？

Cells(8,"D")には、\\＜コンピュータ名＞\temp\
「\」もいるのでは？　　　　　　　　　　　　　　　　　　　　　　
違ったらごめんなさい。

Dir(Cells(8,"D"), vbDirectory) としただけでは、ファイルがなければよいのですが、フォルダだけでなくファイルも取得されます。

ヘルプでは、取得したものがフォルダかどうかを判定しているようですが・・・

Sub test()
　　Dim myFol As String
　　Dim myPath
　　Dim mAry() As Variant
　　
　　myPath = Cells(8, "D").Text & "\"
　　myFol = Dir(myPath, vbDirectory)
　　 Do While myFol <> ""
　　　 If myFol <> "." And myFol <> ".." Then
　　　　　If GetAttr(myPath & myFol) = vbDirectory Then　’←ここ
　　　　　　Debug.Print myFol
　　　　　End If
　　　
　　　 End If
　　　 myFol = Dir
　　 Loop
End Sub

FSOのGetfolderのほうがいいかもしれません。

Sub FSOtest()
　 Dim FSO As Object
　 Dim myPath As String
　 Dim myFolders As Object
　 Dim myFol As Object
　
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　
　 myPath = Cells(8, "D").Text
　 Set myFolders = FSO.GetFolder(myPath).subfolders
　 If myFolders.Count <> 0 Then
　　　For Each myFol In myFolders
　　　　Debug.Print myFol.Name
　　　Next
　 Else
　　MsgBox "フォルダはありません"
　 End If
End Sub

1 hits

▼

【32126】ネットワーク上のフォルダが認識できない まめ 05/12/6(火) 19:16