Domino 9 und frühere Versionen > ND6: Entwicklung

Link einfügen

(1/2) > >>

LuCypher:
Hallo

Mein Problem ist folgendes:

Ich soll für einen Kunden eine Anwendung erstellen über die er auf andere Datensätze zugreifen kann.
Diese sollen aber, wegen der Grösse, nicht im Notes-Dokument gespeichert werden, sondern dort nur als Link vom Benutzer eingetragen werden.
Bei jeder Möglichkeit die mir bis jetzt eingefallen ist, wird entweder das Zielobjekt doch im Notesdokument gespeichert oder es gibt keinen Benutzerdialog über den der Endanwender dann die Links selber eintragen kann.

Vielen Dank schonmal

Semeaphoros:
Willkommen im Forum, Lichtträger ...  ;)

Standarddialog für so etwas gibt es tatsächlich nicht, es sei denn, der Endbenutzer trägt seine Links vollständig "von Hand" ein (über Erstellen, Hotspot). Um Dir einen Lösungsweg aufzuzeigen, brauchen wir aber mehr Informationen: Was sind das für Datensätze und wo liegen die (Applikation und/oder Dateityp und/oder Speicherort).

LuCypher:
Handelt sich um grössere ASCII-Dateien und Firmeninteren Formate, die im Haus auf einem Server liegen. Um Fehler auszuschliessen, ist die händische Eingabe und Umwandlung in einen Hotspot nicht unbedingt das beste. Dachte da eher an sowas wie den "Datei öffnen"-Dialog, der dann den Pfad hinterlässt.

TMC:
Schau mal hier:
http://www.atnotes.de/index.php?topic=12262.0

LuCypher:
Danke für den Verweis auf den anderen Topic... wäre genau das was ich brauche. Nur leider geht der Link mit dem Beispiel nicht mehr (Nicht verwunderlich nach 2 Jahren)

Jemand aus der Firma hat mir aber ein Script geschickt mit dem ich über den Standard-Windows-Datei-öffnen-Dialog den Pfad als String zurückgeben kann:


--- Code: ---Declarations
Const BIF_RETURNONLYFSDIRS = 1
Const BIF_DONTGOBELOWDOMAIN = 2
        Const BIF_BROWSEINCLUDEFILES  = &H4000
Const MAX_PATH = 260
Private Type BrowseInfo
hWndOwner      As Long
pIDLRoot       As Long
pszDisplayName As Long
lpszTitle      As String
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


Sub get_folder(filepath As String)
Dim lpIDList As Long
Dim sBuffer As String *260
Dim szTitle As String
Dim temp As String
Dim endpath As String

Dim tBrowseInfo As BrowseInfo

tbrowseinfo.lpszTitle = "Bitte den Zielordner wählen"
tBrowseInfo.ulflags = BIF_BROWSEINCLUDEFILES

lpIDList = SHBrowseForFolder(tBrowseInfo)

If (lpIDList) Then
SHGetPathFromIDList lpIDList, sBuffer
temp = Left(sBuffer, Instr(sBuffer, Chr(0)) - 1)
endpath = "\"
filepath$ = temp
If Not Right$(filepath$,1) = endpath Then
filepath$ = temp + endpath
End If
Else
End
End If
End Sub

--- Ende Code ---

Aufruf dann über


--- Code: ---Call get_folder(filepath$)

--- Ende Code ---

Ich hoff das tut dann das was ich will ;)

Navigation

[0] Themen-Index

[#] Nächste Seite