Bugzilla – Attachment 118131 Details for
Bug 93634
getDisplayDirectory returns an empty string for Windows filepicker
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Macro with getDisplayDirectory
ExamineFileDialog.bas (text/plain), 717 bytes, created by
Regina Henschel
on 2015-08-24 20:40:26 UTC
(
hide
)
Description:
Macro with getDisplayDirectory
Filename:
MIME Type:
Creator:
Regina Henschel
Created:
2015-08-24 20:40:26 UTC
Size:
717 bytes
patch
obsolete
>REM ***** BASIC ***** >option explicit > >Sub ExamineFileDialog > Dim ListAny(0) as Long > ListAny(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE > dim oFileDialog as variant > oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") > oFileDialog.Initialize(ListAny()) > oFileDialog.SetTitle("Choose a file") > dim sPath as string > dim sCurDir as string > dim iAccept as integer > iAccept = oFileDialog.Execute() > If iAccept = 1 Then > sPath = oFileDialog.Files(0) > sCurDir = oFileDialog.getDisplayDirectory > msgbox("Directory is |" & sCurDir & "|") > msgbox("Selected file is |" & sPath & "|") > end if > oFileDialog.Dispose() >end sub
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 93634
: 118131