Excel VBA質問箱 IV

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

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


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

46550 / 76732

←次へ　｜　前へ→


	【35152】Re:ディレクトリの指定

Kein - 06/2/22(水) 14:19 -


	引用なし

	パスワード

うまくいくかどうか分かりませんが、テストしてみて下さい。
ちなみにこちらでは失敗しました。

Sub Net_Drive()
　 Dim WshNetwork As Object, oDrives As Object
　 Dim i As Long
　
　 Set WshNetwork = CreateObject("WScript.Network")
　 Set oDrives = WshNetwork.EnumNetworkDrives
　 For i = 0 To oDrives.Count - 1 Step 2
　　　MsgBox "Drive " & oDrives.Item(i) & _
　　　" = " & oDrives.Item(i + 1)
　 Next i
　 Set oDrives = Nothing: Set WshNetwork = Nothing
End Sub

Sub Net_Drive2()
　 Dim FSO As Object, Dr As Object
　
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　 For Each Dr In FSO.Drives
　　　If Dr.DriveType = 3 Then
　　　　 MsgBox "ネットワークドライブは " & Dr.DriveLetter & _
　　　　 vbLf & Dr.ShareName
　　　　 Exit For
　　　End If
　 Next
　 Set FSO = Nothing
End Sub

0 hits

▼

【35129】ディレクトリの指定 りん 06/2/22(水) 9:25