[Risolto]Pulsante per inserire l'URL di una cartella IN BASE

[antoniomacosx]

Il problema che propongo e un po il proseguimento o se volete l'inizio del posto pretendete.
Mi spiego meglio vorrei creare un tasto per aprire la maschera per la scelta non di un file ma di una cartella, in modo da poter inserire l'URL ricavato in un campo del database.
Ho visto che la cosa si fa agevolmente con i file, ma con le cartelle dalle prove che ho fatto non è cosi banale.
Vi veine in mente una soluzione?

[patel]

a che punto sei arrivato ? allega un file di esempio

[antoniomacosx]

Ecco il file, ma e collegato ad un database mysql, quindi non riuscirai a vederlo nella sua interezza, ma comunque le macro dovrebbero essere visibili, quella relativa hai fai e sul formulario documenti filtrati
la macro si chiama aprilink, se vedi ci sono diverse prove

ho allegato il file con un link perché è troppo grande

https://www.dropbox.com/s/qtvblp82rgf2w ... I.odb?dl=0

[patel]

mi spiace ma non conosco Base, la prossima volta scrivilo nel titolo che si tratta di base, il 99 % degli utenti fanno domande su Calc

[antoniomacosx]

Grazie lo stesso per l'interessamento, ad ogni modo credo le macro siano le stesse, il problema proprio fare apparire una finestra che faccia selezionare la cartella non il file, normalmente la cartella non la si può scegliere, se la si seleziona si apre.

[patel]

prova questa

Codice: Seleziona tutto

sub scegliDir
print ChooseADirectory("file:///F:/Documenti/Musica/")
end sub
Function ChooseADirectory(Optional sInPath$) As String
Dim oDialog As Object
Dim oSFA As Object
Dim s As String
Dim oPathSettings
oDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
'oDialog = CreateUnoService("com.sun.star.ui.dialogs.OfficeFolderPicker")
oSFA = createUnoService("com.sun.star.ucb.SimpleFileAccess")
If IsMissing(sInPath) Then
oPathSettings = CreateUnoService("com.sun.star.util.PathSettings")
oDialog.setDisplayDirectory(oPathSettings.Work)
ElseIf oSFA.Exists(sInPath) Then
oDialog.setDisplayDirectory(sInPath)
Else
s = "Directory '" & sInPath & "' Does not exist"
If MsgBox(s, 33, "Error") = 2 Then Exit Function
End If
If oDialog.Execute() = 1 Then
ChooseADirectory() = oDialog.getDirectory()
End If
End Function

[antoniomacosx]

Grazie funziona, grande