Dialog File Open

Fehlerberichte, Hilfe und Anregungen zu BasicMaker 2016 für Windows

Moderator: SoftMaker Team

Antworten
GRJ
Beiträge: 5
Registriert: 25.01.2011 15:59:50

Dialog File Open

Beitrag von GRJ » 28.01.2018 07:52:29

Gibt es eine vorgefertigte Dialog Box mit der ich eine Datei auswählen kann?

wie im unteren Beispiel die Funktion MbeFileOpen


'-------------------------------------------------------------------
' openAppendFile - Datei für Ausgabe anhängen öffnen
'-------------------------------------------------------------------
Function openAppendFile (fileNumber as Integer, filename as String, _
filter as String, title as String) as Long
Dim status as long
Dim button as long
Dim suggest as String

suggest = filename

status = MbeFileOpen (filename, suggest, filter, Verzeichnis, title)
If status = MBE_Success Then
Open filename For Append as fileNumber
Else
button = MbeMessageBox ("Keine Datei ausgewählt.")
End If

openAppendFile = status
End Function

Panosis
SoftMaker Volunteers
SoftMaker Volunteers
Beiträge: 2540
Registriert: 24.04.2008 00:02:12

Re: Dialog File Open

Beitrag von Panosis » 29.01.2018 17:24:49

Eingebaut in BM gibt es m. W. keine solche Funktion. Die Dateidialoge unter TM, PM und Presentations kann man nicht direkt ansprechen, wobei dies eigentlich Windows-Dialoge sind.
Den Windows-Dateidialog kann man unter BM grundsätzlich ansprechen, das erscheint mir aber persönlich reichlich kompliziert.

martin-k
SoftMaker Team
SoftMaker Team
Beiträge: 5135
Registriert: 03.12.2003 14:32:06
Kontaktdaten:

Re: Dialog File Open

Beitrag von martin-k » 29.01.2018 17:29:20

Das erreicht man, indem man ein Objekt im Windows-System aufruft. Fertigen Code habe ich nicht, aber hier ist ein Einstiegspunkt:

https://stackoverflow.com/questions/270 ... -windows-7
Martin Kotulla
SoftMaker Software GmbH

Panosis
SoftMaker Volunteers
SoftMaker Volunteers
Beiträge: 2540
Registriert: 24.04.2008 00:02:12

Re: Dialog File Open

Beitrag von Panosis » 29.01.2018 19:16:25

Das müsste unter BM eigentlich so funktionieren:

Code: Alles auswählen

Set sl = CreateObject("Shell.Application")
Set fs = sl.BrowseForFolder(0, "Choose a file", 16384)
Das tut es auch - brav öffnet sich der Windows-Dateidialog, in dem ich eine Datei anwählen und mit [OK] bestätigen kann. Dann aber bricht BM ab mit der Fehlermeldung:
Application defined or object defined error
Was mache ich falsch, oder wo liegt der Fehler?

klaus314
Beiträge: 13
Registriert: 16.12.2017 20:39:00

Re: Dialog File Open

Beitrag von klaus314 » 31.01.2018 07:30:58

Wie der Name schon sagt: BrowseForFolder ist nur für Verzeichnisse geeignet nicht für Dateien.

Antworten

Zurück zu „BasicMaker 2016 für Windows“