Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gravedigger am 05.10.04 - 10:35:12
-
Hallo,
besteht die Möglichkeit, seine lokalen Laufwerke und Verzeichnisse per Button über Formelsprache auszuwählen?
Es soll aber kein FileUpload sein, sondern nur eine "Pfadauswahl".
Danke
Max
-
file := @Prompt([LOCALBROWSE]; "Wählen Sie eine zu öffnende Datenbank"; "3");
Dateityp
Text. Ein Wert, der angibt, welche Dateitypen ausgegeben werden sollen: "1" für Dateien vom Typ .nsf; "2" für Dateien vom Typ.ntf; "3" für alle Dateien. Nur erforderlich bei [LocalBrowse].
Der Rest steht in der Designer Hilfe...
Andreas
-
Das geht dann aber doch in die Richtung, die der Totengräber bestimmt mit "FileUpload" meint, Andreas.
@Gravedigger: Eine Funktion zur Auswahl eines Verzeichnisses gibt es in Formelsprache und in LS nicht. Mit LS kann man aber die WinAPI zu Hilfe nehmen.
Bernhard
-
hat hier jemand gerufen ?
Const BIF_RETURNONLYFSDIRS = 1000
Const BIF_DONTGOBELOWDOMAIN = 2
Const MAX_PATH = 260
Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (Byval pidList As Long, Byval lpBuffer As String) As Long
Declare Function SHGetSpecialFolderLocation Lib "shell32" (Byval hwndOwner As Long, Byval nFolder As Long, pidl As Long) As Long
Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (Byval lpString1 As String, Byval lpString2 As String) As Long
Sub Click(Source As Button)
'Opens a Browse Folders Dialog Box that displays the
'directories in your computer
Dim lpIDList As Long ' Declare Varibles
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "Hello World. Click on a directory and " & _
"it's path will be displayed in a message box"
' Text to appear in the the gray area under the title bar
' telling you what to do
tBrowseInfo.hWndOwner = 0
tBrowseInfo.lpszTitle = lstrcat(szTitle, "")
tBrowseInfo.ulFlags = 2000
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, Instr(sBuffer, Chr(0)) - 1)
Msgbox sBuffer
End If
End Sub
-
file := @Prompt([LOCALBROWSE]; "Wählen Sie eine zu öffnende Datenbank"; "3");
Dateityp
Text. Ein Wert, der angibt, welche Dateitypen ausgegeben werden sollen: "1" für Dateien vom Typ .nsf; "2" für Dateien vom Typ.ntf; "3" für alle Dateien. Nur erforderlich bei [LocalBrowse].
Der Rest steht in der Designer Hilfe...
Andreas
Danke, funzt gut. :D