Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Sfoglia per cartelle solo in documenti
Forum - Visual Basic 6 - Sfoglia per cartelle solo in documenti

Avatar
Cross (Normal User)
Pro


Messaggi: 61
Iscritto: 06/05/2007

Segnala al moderatore
Postato alle 17:56
Mercoledì, 06/06/2007
ragazzi io ho questo codice:
Codice sorgente - presumibilmente VB.NET

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



però questo mi visualizza lo "sfoglia per cartelle" ma mi fa solo sfogliare le cartelle solo dei documenti, come fare a fare in modo che posso sfogliare tutte le unità e cartelle del PC???
grazie molte

PM Quote
Avatar
umberto (Normal User)
Newbie


Messaggi: 19
Iscritto: 04/06/2007

Segnala al moderatore
Postato alle 6:32
Giovedì, 07/06/2007
Ciao , prova così :

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


**la differenza è SSfpersonal=0 ****

anch'io ho un problema, mi puoi aiutare?

Ciao

PM Quote
Avatar
Cross (Normal User)
Pro


Messaggi: 61
Iscritto: 06/05/2007

Segnala al moderatore
Postato alle 18:12
Giovedì, 07/06/2007
ok ora funziona tutto grazie molto umberto!!!
a secondo il tipo di problema che hai??
dimmi...

PM Quote
Avatar
Cross (Normal User)
Pro


Messaggi: 61
Iscritto: 06/05/2007

Segnala al moderatore
Postato alle 18:45
Giovedì, 07/06/2007
umberto lo "sfoglia per cartelle" funziona tutto correttamente come volevo io ma però il percorso che seleziono (es. "H:\dati\") lo vorrei visualizzare in una label, ma non me la fa visualizzare, ho provato in diversi modi:
-  lbl.caption sMydir
-  lbl.caption = sMydir
-  sMydir lbl.caption
-  sMydir = lbl.caption
ma con alcune di queste mi da errore nn facendomi aprire lo "sfoglia per cartelle" altre invece dopo che seleziono il percorso nn me lo visualizza, come mai??? che sbaglio???
grazie

PM Quote
Avatar
umberto (Normal User)
Newbie


Messaggi: 19
Iscritto: 04/06/2007

Segnala al moderatore
Postato alle 6:58
Venerdì, 08/06/2007
Ciao, versione corretta :

Dim sMyDir As String
Const ssfPERSONAL = 0

sMyDir = CreateObject("Shell.Application").BrowseForFolder(0, "Messaggio nella finestra", 0, ssfPERSONAL).Self
If sMyDir <> "" Then MsgBox "Hai selezionato la cartella: " & sMyDir
Label1 = sMyDir


è stato semplicemente eliminato il ".Patch"

ora dovrebbe funzionare, io l'ho provato OK OK

Ciao ciao

PM Quote
Avatar
Cross (Normal User)
Pro


Messaggi: 61
Iscritto: 06/05/2007

Segnala al moderatore
Postato alle 17:09
Venerdì, 08/06/2007
Si si ora funziona tutto, ma nella label nn mi deve visualizzare in nome della cartella che ho selezionato, ma in percorso.
scusami ma mi sono dimenticato di scriverlo prima...

PM Quote