Alle 01:09, domenica 15 gennaio 2006, Bart Aimar ha scritto:
> Quindi abbiamo un altro problema... e bisognerà metterci anche qui una
> pezza (magari manipolando la stringa sURL...)
Si potrebbe modificare la funzione Folder così
Codice
Function Folder()
Dim oCartella as Object
Dim iAccetta as Integer
Dim sCartella As String
Dim Barra As String
oCartella = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
iAccetta = oCartella.Execute()
If iAccetta = 1 Then sCartella = oCartella.GetDirectory()
Barra = Right(sCartella, 1) 'Viene passata alla variabile Barra
' l' ultima lettera di sCartella
If Barra <> "/" Then sCartella = sCartella + "/"
' Viene controllato se c' è questa benedetta barra
' se non c' è viene aggiunta
Folder() = sCartella
End Function
Già che siamo in tema di controlli sarebbe meglio aggiungere
dopo la linea
sCartella = Folder()
quest' altra linea
If sCartella = "/" Then Exit Sub
nel caso un utente dovesse premere Cancella nella finestra di dialogo
Naturalmente i nomi delle variabili possono essere cambiati
per far sembrare il codice più " professionale"
Ciao Lido
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
