[VB6] Sfogliare una cartella, partendo da una predefinita

[marco.santilli]

Con questo:
Dim perc As String
perc = BrowseFolder(Me.hWnd, " la cartella desiderata:")

Apro la finestra per sfogliare le directory del PC.
Per default parte da Risorse del Computer

C'è un modo per impostargli un'altra partenza????

Ad esempio io voglio che la cartella principale da visualizzarmi sia "Documenti" così, posso velocizzare la ricerca di una sottocartella

Ciao e grazieeeeeee

[oregon]

Ma BrowseFolder cosa e'?

[marco.santilli]

Per sfogliare le cartelle di un PC.

Con "BrowseFolder" attribuisco ad una casella di testo un percorso di una cartella

[oregon]

Ma e' una tua funzione? Mostrane il codice ...

[marco.santilli]

Non è una funzione è proprio un comando di Vb6

Io lo uso cosi

Private Function Percorso
Dim perc As String
perc = BrowseFolder(Me.hWnd, " la cartella desiderata:")

Dim p, p1, p2, p3() As String
p = perc
p2 = Split(p, "\")
p1 = p2(UBound(p2) - 1) & "\" & p2(UBound(p2))

Text7.Text = p1
End Function

Eseguito in un pulsante

Cliccando sul pulsante si apre la classica finestra per sfogliare il PC, poi quando trovi la cartella cliccando su apri mi prende il percorso, esegui i suoi tagli lasciando il nome della cartella, la quale vado a salvarla nel database


Poi quando richiami i dati una textbox mi si popola con il nome di quella cartella.
Cliccando su APRI, mi esegue questa stringa

Shell "explorer " & Text7.Text & "", vbNormalNoFocus

che mi apre la cartella presente in quella textbox

[oregon]

No ... ... penso di conoscere abbastanza bene VB6 per dirti che

BrowseFolder

NON e' un comando di VB6 ...

E' una funzione che avrai definito da qualche parte (magari in un modulo) nel tuo programma ... e neanche tu lo sai ....

[marco.santilli]

Si hai ragione scusami...non avevo capito

Il programma è composto da una sola form.

Si tratta di archiviazioni di vari documenti, file di word, excel, immagini, divise per cartelle

Salvo il titolo dell'argomento e con quello che ti ho mostrato gli associo quella cartella.

In un programma precedente archiviavo il FILE, quindi utilizzavo CommonDialog, in questo caso non devo salvare il percorso del file ma il percorso della cartella.

Non sapendo come fare ho chiesto nel forum, e mi hanno aiutato scrivendomi quella stringa....

Adesso la cerco se la trovo ti posto la mia richiesta.

Cmq provalo che funziona

[marco.santilli]

Ho trovato il post che ti dicevo....quella persona che mi ha aiutato....sei proprio te

Che figata!!!!!!!!!

http://forum.html.it/forum/showthrea...readid=1093611

[marco.santilli]

Cmq il codice è cosi composto in un modulo ho messo questo:

---------------------------------------------------------------------------

Owner As Long
pidlRoot As Long
pszDisplayName As String
TestoFinestra As String
End Type

Private Declare Function SHGetPathFromIDList Lib "SHELL32.DLL" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "SHELL32.DLL" Alias "SHBrowseForFolderA" (lpBrowseInfo As Info) As Long


'Mostra la finestra Sfoglia cartelle
Public Function BrowseFolder(hWnd As Long, Testo As String) As String

Dim x As Long, BI As Info, dwIList As Long, szPath As String, wPos As Integer

With BI
.Owner = hWnd 'dice alla finestra che deve avere la priorità sul form che l'ha chiamata
.TestoFinestra = Testo 'imposta la scritta nella finestra
End With

dwIList = SHBrowseForFolder(BI)
szPath = Space$(512) 'stringa della lunghezza massima
'consentita al percorso di un file in Windows
x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)

If x = 1 Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = ""
End If

End Function


---------------------------------------------------------------------------

Nella form, ho creato questa funzione che poi eseguo con la pressione del pulsante

---------------------------------------------------------------------------

Private Function Percorso
Dim perc As String
perc = BrowseFolder(Me.hWnd, " la cartella desiderata:")

Dim p, p1, p2, p3() As String
p = perc
p2 = Split(p, "\")
p1 = p2(UBound(p2) - 1) & "\" & p2(UBound(p2))

Text7.Text = p1
End Function

---------------------------------------------------------------------------

[oregon]

Guarda questo esempio completo

http://www.elguille.info/VB/ejemplos/browsefolder.htm