To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=100318
Issue #|100318
Summary|Windows Shortcuts not working in OO-dialogs
Component|framework
Version|OOo 2.4.1
Platform|PC
URL|
OS/Version|Windows XP
Status|UNCONFIRMED
Status whiteboard|
Keywords|
Resolution|
Issue type|DEFECT
Priority|P3
Subcomponent|ui
Assigned to|tm
Reported by|sos
------- Additional comments from s...@openoffice.org Wed Mar 18 17:01:41 +0000
2009 -------
Windows shortcuts are seen als a "file" and not as a "shortcut" when suing OO-
dialogs instead off System Dialogs
I found a soluting for Filepickerdialogs run from the API:
Sub test( )
Dim oleService , wso
Dim sFilePickerArgs
sFilePickerArgs = Array
(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE) 'FILESAVE_AUTOEXTE
NSION)
dlgFile = CreateUnoService ("com.sun.star.ui.dialogs.FilePicker")
with dlgFile
.Initialize(sFilePickerArgs())
.SetMultiselectionMode (false)
.Title = "Kies Attachement"
.setDisplayDirectory(ConverttoURL(spath ))
END with
sSluitpicker = dlgFile.Execute ()
If sSluitpicker = 1 Then
Dim selFiles() As Object
selFiles = dlgFile.GetFiles()
sFilePath = convertfromurl(selFiles(0))
END If
If sSluitpicker = 0 Then
exit sub
endif
if ucase( right(sfilepath,4)) = ".LNK" then ' it's a Shortcut
print "hier"
oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")
wso = oleService.createInstance("Wscript.Shell") ' is pressent on every Windows
machine
'fso = oleService.createInstance("Scripting.FileSystemObject")
linkje = wso.CreateShortcut(sFilepath)
print linkje.targetpath
endif
print "Normal filepicker procedure"
End Sub
please do something simular for the dialogs run in the GUI
Thanks
Fernand
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: issues-unsubscr...@framework.openoffice.org
For additional commands, e-mail: issues-h...@framework.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org
