Succede qualcosa di molto strano. Ho adattato la macro di Andrew
Pitonyak per usare la finestra di selezione dei file. Ma su alcuni PC
in rete non riesco a impostare il percorso predefinito, infatti
malgrado imposto la proprietà SetDisplayDirectory mi ritorna
invece l'ultimo percorso selezionato. Lo stesso codice su PC che
lavorano in locale funzia. Notare che prima di assegnare la
proprietà al FilePicker si verifica l'esistenza del percorso,
quindi il problema non é che il percorso non sia valido!
Sub GetAFile
Dim oFileDialog as Object
Dim iAccept as Integer
Dim sPath as String
Dim InitPath as String
Dim oUcb as object
oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
'qui viene indicato il percorso predefinito
InitPath = ConvertToUrl("H:usergroup")
If oUcb.Exists(InitPath) Then
oFileDialog.SetDisplayDirectory(InitPath)
else
print "il percorso non esiste"
exit sub
End If
iAccept = oFileDialog.Execute()
If iAccept = 1 Then
sPath = oFileDialog.Files(0)
End If
oFileDialog.Dispose()
print sPath
End Sub
Qualcuno ha una qualche idea??
Antonello --
------------------------------------------------------------------------
Per cancellarsi: scrivere a [email protected]
Per altre operazioni: http://openoffice.org/projects/it/lists
