Domino 9 und frühere Versionen > Entwicklung

Laufwerksübersicht

(1/1)

inu:
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

eknori:
 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.

inu:
vielen dank

Navigation

[0] Themen-Index