Domino 9 und frühere Versionen > ND7: Entwicklung

Dateipfad auswählen Lotus Notes /Domino 8.5

(1/7) > >>

moprheusfgh:
Hallo zusammen,

ich bin neu hier und bin mir nicht sicher, ob ich meine Frage richtig eingestellt habe  ???

Ich möchte gerne aus einer Maske mit einem Button einen Dateipfad auswählen. Ich habe bereits aus einem anderen Beitrag, dass ich folgendes einfügen muss.

Decleration:

Type fileDlgStruct
   lStructSize As Long
   hwndOwner As Long
   lpstrFilter As String
   lpstrCusomfilter As Long
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrtTitle As String
   Flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplsteName As Long
End Type


Declare Function getFileName Lib "comdlg32.dll" Alias _
"GetopenFileNameA" (fileDlg As fileDlgStruct) As Long

---------------------------------------------------------------------------------------------------------------------

APIGetFile:

Function APIGetFile()
   Dim Title As String
   Dim defExt As String
   Dim szCurDir As String
   Dim apiresults%
   
   title = "Datei für den export auswählen" & Chr$(0)
   FileName ="*.xls" & Chr$(0)
   FileTitle = Space$(255) & Chr(0)
   
   szCurDir = "C:\Dokumente und Einstellungen" & Chr$(0)
   myFileDlg.lStructSize = Len(myFileDlg)
   
   myFileDlg.hwndOwner = 0&
   myFileDlg.lpstrFilter = Filter
   myFileDlg.nFilterIndex = 1
   myFileDlg.lpstrFile = Filename
   myFileDlg.nMaxFile = Len (Filename)
   myFileDlg.lpstrFileTitle = FileTitle
   myFileDlg.nMaxFileTitle = Len(FileTitle)
   myFileDlg.lpstrTitle = Title
   myFileDlg.Flags = OFN_Filemustexist + OFN_Allowmultiselect
   myFileDlg.lpstrDefext = DefExt
   myFileDlg.hInstance = 0
   myFileDlg.lpstrCustomFilter = 0
   myFileDlg.nMaxCustFilter = 0
   myFileDlg.lpstrInitialDir = szCurDir
   myFileDlg.nFileOffset = 0
   myFileDlg.nFileExtension = 0
   myFileDlg.lCustdata = 0
   myFileDlg.lpfnhook = 0
   myFileDlg.lpTemplateName = 0
   
   REM Aufruf der Box
   
   APIResults% = GetFileName(myFileDlg ) ------> bekomme ich einen Fehler!?!?!
   If APIResults% <> 0 Then
      Filename = Cstr( myFileDlg.lpstrFile )
      Filetitle = Cstr (myFileDlg.lpstrFileTitle )
      OpenCommDlg = 1
      
   Else
      
      OpenCommDlg = 0
      
   End If
   
End Function
-------------------------------------------------------------------------------------------------------------

Unter "Click" steht nichts. Muss dort nicht noch etwas stehen?

Vielen dnak im voraus. Ich beschäftige mich noch nicht lang mit Lotus Script (sieht man vielleicht...).

Grüße

Klafu:
Hallo,

Was genau hast du denn vor ?
Einen Button zum auswählen eines Dateipfades ist nicht so schwer.
Da hilft dir bestimmt auch noch die Forensuche.
eventuell hilft dir das ja schon:
http://atnotes.de/index.php/topic,8263.0.html

Chris

moprheusfgh:
Hi,

ich möchte einen Import von einer Exceldatei in das Visio erstellen. Hab das auch alles hinbekommen. Das einzige Problem ist, dass ich selber im Script den Dateipfad ausgewählt habe:

run = path + "\Microsoft Office\Office12\OrgWiz.exe " + "/NAME-FIELD=Name /MANAGER-FIELD=Vorgesetzter /DISPLAY-FIELDS=Name,Abteilung   /UNIQUEID-FIELD=Eindeutige_ID /FILENAME=C:\temp\mappe7.xls"
   result = Shell(run, 1)

Ich will aber, dass ich den Filename durch eine Box auswählen kann.

Viele Grüße

ascabg:
Hallo,

Klafu war schneller mit der Frage.

Was moechtest Du?

Mit ein bisschen Code hilft eventuell aber auch schon

--- Code: ---FileName = NotesUIWorkspace.OpenFileDialog(...)

--- Ende Code ---
weiter.

Aus dem Rueckgabewert kann man ohne groesseren Aufwand den gewaehlten Pfad extrahieren.

Aber auch

--- Code: ---@Prompt([LocalBrowse]; "Select File"; 1)

--- Ende Code ---

waere eventuell eine Alternative


Andreas

Klafu:
Du musst nur den vordefinierten Pfad durch eine Variable ersetzen, welcher du die Pfadauswahl zuweist.

Chris

Navigation

[0] Themen-Index

[#] Nächste Seite