Ho installato la versione 3.0.1 e questa funzione che usa il FilePicker
non mi funziona più, non mi mostra più il box di selezione dei files?
Function SelezionaFile() As String
Dim oFileDialog as Object
Dim iAccept as Integer
Dim oUcb As Object
oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
oFileDialog.AppendFilter( "Fogli elettronici", "*.sxc;*.ods")
oFileDialog.AppendFilter( "Tutti i files (*.*)", "*.*")
oFileDialog.SetCurrentFilter( "Fogli elettronici" )
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
iAccept = oFileDialog.Execute()
If iAccept = 1 Then
SelezionaFile = oFileDialog.Files(0)
End If
oFileDialog.Dispose()
End Function
Nella 3.0 funzionava tutto a meraviglia.
Prima lanciarmi alla ricerca della soluzione alternativa, qualcuno mi sa
dire se è cambiato qualche parametro rispetto alla 3.0?
grazie
Guido
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
