Cerca Folder oggettiOCX VisualBasic6

[tuono_2000]

Salve a TUTTI...

Mi potreste dare il nome dell'oggetto,
e ovviamente da dove scaricarlo,
per visual Basic 6
Per la finestra di ricerca di una Cartella...

Avrei necessita, in un programma, di fermi indicare una cartella per delle operzioni.

L'oggetto "CommonDialog" mi permette di cercare solamente FILE e non cartelle.

Grazie per l'aiuto

[oregon]

Anche se la tua richiesta e' un po' confusa ... mi sembra che tu debba usare la API

BrowseForFolder

... cerca nel forum e con google e troverai molti esempi ...

[gibra]

Originariamente inviato da tuono_2000
Salve a TUTTI...

Mi potreste dare il nome dell'oggetto,
e ovviamente da dove scaricarlo,
per visual Basic 6
Per la finestra di ricerca di una Cartella...

Avrei necessita, in un programma, di fermi indicare una cartella per delle operzioni.

L'oggetto "CommonDialog" mi permette di cercare solamente FILE e non cartelle.

Grazie per l'aiuto

Non serve alcun OCX

La BROWSEFORFOLDER si può richiamare con una riga di codice:

Dim sMyDir As String
Const ssfPERSONAL = 5  ' cartella Documenti
On Error Resume Next
sMyDir = CreateObject("Shell.Application").BrowseForFolder(0, "Messaggio nella finestra", 0, ssfPERSONAL).Self.Path
If sMyDir <> "" Then MsgBox "Hai selezionato la cartella: " & sMyDir

Come cartella radice, puoi sostituire la costante ssfPERSONAL con un'altra tra le molte 'special folder' disponibili (vedi la guida MSDN per l'elenco completo).

Se invece vuoi indicare una tua cartella, al posto di ssfPERSONAL dovrai indicare il percorso della cartella aggiungendo il carattere Crh(0), esempio

App.Path & Chr(0)
"D:\File\Progrmmazione" & Chr(0)

Ciao

[LeleFT]

Domanda: perchè continui a mettere una "@" alla fine dei titoli delle discussioni?


Ciao.

[tuono_2000]

Grazie a tutti mi avete risolto il problema...
linguaggio Visual basic 6

Grazie [gibra]
utilizzero il tuo codice per effettuare la ricerca di una cartella

Dim sMyDir As String
Const ssfPERSONAL = 5  ' cartella Documenti
On Error Resume Next
sMyDir = CreateObject("Shell.Application").BrowseForFolder(0, "Messaggio nella finestra", 0, ssfPERSONAL).Self.Path
If sMyDir <> "" Then MsgBox "Hai selezionato la cartella: " & sMyDir

Grazie [oregon]
Con la ricercha con Google della parola "BrowseForFolder"
ho trovato questa Function un po troppo complessa per ME...
simpaticissimo [LeleFT]
Il simbolo "@" ASCII64 mi aiuta nella ricerca delle MIE discussioni.
GRAZIEa TUTTI