hi all :-)
usbstick ist ja meist das letzte laufwerk :-))
wenn dem so sein sollte,ein beispiel
gruss nighty
Option Explicit
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Sub Get_Logical_Drive_String()
Dim DrvString As String
Dim TotDrvs As Long
TotDrvs = GetLogicalDriveStrings(0&, DrvString)
DrvString = String(TotDrvs - 1, " ")
TotDrvs = GetLogicalDriveStrings(TotDrvs, DrvString)
Cells(1, 4) = Mid$(DrvString, Len(DrvString) - 3, 3)
End Sub