Ciao a tutti!!
Ho un problema con CommonDialog.InitDir
Allora ho un pulsante che mi apre una finestra di dialogo partendo dalla directory specificata con InitDir. Se l'utente vuole cambiare directory puo' farlo, ma quando preme OK faccio apparire una MsgBox che chiede se e' sicuro. Nel caso l'utente risponda di no, allora la sub termina.
Fin qui funziona, ma se ora l'utente preme ancora il pulsante la directory di partenza non e' piu' quella iniziale specificata in InitDir, ma l'ultima scelta dall'utente e poi scartata...Perche'???
Vi copio il codice che ho scritto:
Private Sub cmdTableName_Click()
Debug.Print DBFPath 'DBFPATH e' una variabile che contiene
'il percorso iniziale
FileName = ""
CommonDialog1.InitDir = DBFPath
Debug.Print CommonDialog1.InitDir
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
FileTitle = CommonDialog1.FileTitle
If (FileName <> "") Then 'se non e' stato premuto Cancel
x = MsgBox("Sei sicuro di voler modificare il nome del database?", vbYesNo)
Debug.Print x
If (x = 6) Then
'istruzioni nel caso l'utente accetti le modifiche
LenFileName = Len(FileName)
LenFileTitle = Len(FileTitle)
TableName = Left(FileTitle, LenFileTitle - 4)
LenFileTitle = Len(FileTitle) + 1
LenPath = LenFileName - LenFileTitle
DBFPath = Left(FileName, LenPath)
txtTableName.Text = DBFPath + "\" + TableName + ".dbf"
Else
Debug.Print DBFPath
FileName = ""
Exit Sub
End If
End If
End Sub
Grazie a tutti!!
Rispondi quotando
GRAZIE!! 
