Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: inu am 11.03.03 - 09:46:29
-
ich möchte mittels @Funtion und/oder LotusScript eine Textliste generieren, aus der alle aktuell zur Verfügung stehende Laufwerke gelistet werden.
Hat jemand hierzu eine Lösung?
David
-
Enter this code in the declarations-section:
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (Byval nBufferLength As Long, Byval lpBuffer As String) As Long
' Enter this code where You want to execute the check for available drives:
Dim tmp As String
Dim iCount As Integer
Dim strDrives As String
tmp = ""
strDrives = Space$(64)
Call GetLogicalDriveStrings(Len(strDrives), strDrives)
For iCount = 1 To Len(strDrives) Step 4
tmp = tmp & Mid$(strDrives, iCount, 1)
Next iCount
Msgbox tmp
Der Code gibt dir alle zur Verfügung stehenden Laufwerksbuchstaben aus.
-
vielen dank