Newsgroup: it.comp.appl.access
Titolo: Re: Inserire un path in una variabile di testo

 Se vuoi ti passo la sub-routine ;-)
Se non ti causa troppo fastidio, mi saresti di grande aiuto.
Ciao

[CUT]
dove sei? sei andato al bar? aspetta che vengo anch'io e ci facciamo un 
"caffè" freddo ;-) 

Ho la necessità di memorizzare un path (locale o su lan non credo faccia
differenza) in un campo della maschera.
Ora come ora l'utente deve digitare tutto il path a mano.
E' possibile fare in modo che, da Access, si possa interagire con l'explorer
e selezionare la cartella su HD o in rete proprio come si fa per
l'installazione dei programmi?
Ovvero: è possibile memorizzare il path utilizzando la finestra di windows
invece di scrivere manualmente tutto?
Da dove mi consigliate di iniziare?

[CUT]
Pardon...ti serve richiamare la common dialogi di windows (quella relativa 
alla selezione dei files...) e quindi raccogliere il valore del file 
selezionato? 

[CUT]
Ma certo grande "vuLCan Karayan" -> utilizza le API
Se vuoi ti passo la sub-routine ;-)
Gaspare 

[CUT]
La funzione è "GetOpenFileName"
----------------------------------------
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias 
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
--------------------------
Per richiamarla:
----------------------
    Dim File As OPENFILENAME
    File.lStructSize = Len(File)
    'Assegna l'handle della finestra principale
    File.hwndOwner = Me.Hwnd
    'Seleziona un filtro
    File.lpstrFilter = "Immagini -> GIF (*.gif)" + Chr$(0) + "*.gif" + 
Chr$(0) + "Immagini -> JPG (*.jpg)" + Chr$(0) + "*.jpg" + Chr$(0) + 
"Immagini ->TIFF (*.tiff)" + Chr$(0) + "*.tiff" + Chr$(0) + "Tutti gli altri 
files(*.*)" + Chr$(0) + "*.*" + Chr$(0)
    'Crea un buffer per il file
    File.lpstrFile = Space$(254)
    'Assegna la massima lunghezza che può avere il file
    File.nMaxFile = 255
    'Crea un buffer per il titolo del file
    File.lpstrFileTitle = Space$(254)
    'Assegna la massima lunghezza che può avere il titolo del file
    File.nMaxFileTitle = 255
    'Determina la directory iniziale
    File.lpstrInitialDir = "C:\"
    'Assegna il titolo della finestra
    File.lpstrTitle = "Seleziona il file da aprire"
    'Non imposta alcun flags
    File.flags = 0
    'Visualizza la finestra
    If GetOpenFileName(File) Then
        MsgBox "File to Open: " + Trim$(File.lpstrFile)
    Else
        MsgBox "Cancel was pressed"
    End If
-----------------------
Ovviamente la adatti alle tue esigenze....la trovi ampiamente commentata con 
esempio all'url 
http://www.mentalis.org/apilist/GetOpenFileName.shtml
Buona giornata ;-)
Gaspare



[CUT+
Che fastidio...figurati!!!
Dimmi solo se ti va bene il valore restituito dalla common dialog di windows 

 Dimmi solo se ti va bene il valore restituito dalla common dialog di
windows
Si, esatto.
Vorrei "catturare" il percorso selezionato.
Tnx

 ha scritto nel messaggio 
news:mOcue.57166$75.29...@news4.tin.it...

ciao,
se usi AXP (penso anche A2k) puoi usare FileDialog dell'oggetto application.
Ciao,
Mat.