@wbendl
Das ist der Code:
Public Sub GetAllDrives()
Dim sBuffer As String * 255
Dim sDrives As String
Dim lResult As Long
Dim sDrive As String
Dim sPos As Integer
lResult = GetLogicalDriveStrings(Len(sBuffer), sBuffer)
sDrives = Left$(sBuffer, lResult)
While Len(sDrives) > 0
sPos = InStr(sDrives, Chr$(0))
sDrive = Left$(sDrives, sPos - 1)
sDrives = Mid$(sDrives, sPos + 1)
If LaufwerksTyp(sDrive) = "Wechseldatenträger" And Left$(sDrive, 2) <> "A:\" And Left$(sDrive, 2) <> "B:\" Then
pfad = sDrive
Else
pfad = App.Path
End If
Wend
End Sub
@jacklemon: da der Stick manchmal auch leer sein kann, müsste man versuche eine Datei anzulegen, wenn das nicht geht ist eben kein Stick da(?)
|