absoluter Laufwerkpfad auslesen
23.03.2007 13:22:34
Ceci
ich lese mit folgender Prozedur die Laufwerksbuchstaben auf meinem Netzwerk aus.
Ich benötige aber nicht die Buchstaben, sondern die absoluten Laufwerksbezeichnungen.
z.B. nicht H.\ sondern \\Hy08\Laufwerksname\.
Kann mir jemand helfen?
mfg Ceci
Sub AllDrives()
Dim strtemp As String, _
strback As String
Dim intakt As Integer
On Error Resume Next
For intakt = 65 To 90
Err = 0
strtemp = Dir(Chr(intakt) & ":\*.*", vbDirectory)
If strtemp "" And Err = 0 Then
strback = strback & CurDir(intakt) & ": "
'Debug.Print Object.GetAbsolutePathName(strback)
End If
Next intakt
On Error GoTo 0
MsgBox strback
End Sub