Lokale Laufwerke/Verzeichnisse

[Gravedigger]

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

[Glombi]

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

[koehlerbv]

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

[eknori]

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

[Gravedigger]

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.