auf Laufwerk Prüfen

Forumthread: auf Laufwerk Prüfen

auf Laufwerk Prüfen

27.11.2005 10:34:08

Tino

Hallo,
ist die Prüfung auf existenz von Laufwerken möglich?
so gehts bei nicht:
if DriveExists("Y:") = False then exit sub
könnt Ihr mir helfen?
Danke Eeuer
Tino

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Habe es selbst gefunden

27.11.2005 11:20:36

Tino
AW: auf Laufwerk Prüfen

27.11.2005 11:27:17

Ferdinand

Habe es selbst gefunden

27.11.2005 11:20:36

Tino

Hallo,
habe schon hilfe gefunden!
Private Declare


Function PathFileExists Lib "shlwapi.dll" _
Alias "PathFileExistsA" ( _
ByVal pszPath As String) As Long
Public 

Function IsFilePath(strPath As String) As Boolean
IsFilePath = CBool(PathFileExists(strPath))
End Function



Sub vv()
If IsFilePath("Y:") = False Then Exit Sub
End Sub


Euer Tino

AW: auf Laufwerk Prüfen

27.11.2005 11:27:17

Ferdinand

Hi,
versuchs mal damit:


Sub drive_exists()
Dim fs As Object
Dim testdrive As String
testdrive = "W:"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.DriveExists(testdrive) Then
MsgBox "Drive >" & testdrive & "< existiert."
Else
MsgBox "Drive >" & testdrive & "< existiert nicht."
End If
End Sub

Viel Erfolg.
LieGrü
Ferri

Forumthread: auf Laufwerk Prüfen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread