[vb6] percorso cartella selezionata con COMMON DIALOG

[gioviskius]

Ciao Gibra:

il codice è quello che mi hai postato te. Ho solo cambiato la visualizzazione da 5 a 12

'BROWSEFORFOLDER semplice:
Dim sMyDir As String
Dim sMsg As String
Const ssfPERSONAL = 12    ' si può sostituire con altro identificatore di 'SpecialFolder'
sMsg = "Selezionare la Cartella in cui è contenuto l'inventario del PC-OVER:"
On Error Resume Next
sMyDir = CreateObject("Shell.application").BrowseForFolder(0, sMsg, 0, ssfPERSONAL).Self.Path
If sMyDir <> "" Then
    txt_caread.Text = sMyDir
End If

Grazie

[gibra]

Non indichi la RIGA in cui si verifica l'errore.
Chi ci dice che l'errore è causato davvero da quel codice?

A me funziona perfettamente .
quindi il problema potrebbe essere causato da altro codice che viene dopo oppure che interferisce (subclassing, timer, ...)

Metti un breakpoint [F9] sulla riga:
If sMyDir <> "" Then
poi quando l'esecuzione va in pausa premi [F8] per eseguire una istruzione per volta fino a quando non ti segnala l'errore, così vedi la riga in cui lo genera.

[gioviskius]

ciao gibra...

l errore me lo da nel comando;

sMyDir = CreateObject("Shell.application").BrowseForFolder(0, sMsg, 0, ssfPERSONAL).Self.Path

e se premo annulla è vuota

perche???

[gibra]

Originariamente inviato da gioviskius
l errore me lo da nel comando;

Qualche difficoltà con la tastiera?

Originariamente inviato da gioviskius

sMyDir = CreateObject("Shell.application").BrowseForFolder(0, sMsg, 0, ssfPERSONAL).Self.Path

Che questa riga generi un'errore è un caso davvero strano, molto strano perchè Shell è una libreria di sistema, non può darti errore.

Se è davvero così, significa che è il tuo computer ad avere davvero un grosso problema.
Ma potrebbe dipendere anche dalla versione del sistema operativo e dalle credenziali dell'account che usi.
Non è che usi Vista o Seven con UAC attivo e non hai un account con permessi amministrativi?

Originariamente inviato da gioviskius
e se premo annulla è vuota

Questa affermazione non la capisco proprio.
Se ti riferisci alla variabile MyDir, quando premi Annulla è OVVIO che MyDir sarà vuota, e così deve essere.

Cosa pensi che dovrebbe restituire?

[gioviskius]

ciao ancora gibra...

si si sono daccordo che sia vuota quando premo ANNULLA..l ho specificato soltanto per darti tutte le informazioni.

l errore è

Variabile del blocco with non impostata (e non capisco proprio perche)

In quanto all so è WIN XP PRO sp3...non penso abbia problemi

[gibra]

Anch'io ho WindosXP SP3.

Controlla nella
- scheda Generale delle Opzioni (dal menu Strumenti-> Opzioni)
- nel riquadro Intercettazione degli errori
- deve essere selezionata l'opzione Interrompi ad ogni errore non gestito

Se non lo è, allora è questo il motivo per cui ti segnala l'errore.

Se invece lo è già allora non so proprio cos'altro consigliarti.