Newsgroup: it.comp.appl.access
Titolo: viasualizzare file contenuti in una directory

Ciao a tutti.
Nonostante abbia già cercato sul SitoComune e sul web in genere, non sono
riuscito a capire come fare per :
- visualizzare, in un controllo di una maschera, il contenuto di una
directory (di cui conosco il path).
- successivamente, con doppio click sul singolo file,  vorrei aprire la
relativa applicazione (immagini, .doc, .eml)
Avete suggerimenti per facilitarmi la cosa ?
Uso Access 2000, quindi non ho a disposizione il File Dialog (e poi la mia
applicazione gira in Run-Time).
Grazie.
Rikk

 ha scritto nel messaggio 
news:eelvpg$p4i$1...@balena.cs.interbusiness.it...

Hai visto pure sul sito di Alex?
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=53
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Ho scaricato l'esempio di Alex, è veramente SUPER, ma anche molto
complesso
forse il seguente codice può risolvere il problema di Riccardo in
maniera più semplice, ovviamente con una form meno professionale.
Private Sub ElencaFile()
   ' Ho cmq. modificato una Routine di Alex presa dal demo
Forms_Agenda_Lite.mdb
   ' cc1 è il nome della Casella Combinata
   ' devi inoltre valorizzare correttamente la variabile 'percorso'
   On Error Resume Next
   Dim Percorso As String
   Dim fso  As Object
   Dim fil
   Set fso = CreateObject("Scripting.FileSystemObject")
   Percorso = CurrentProject.Path & "\"
   Me.cc1.RowSource = vbNullString
   For Each fil In fso.GetFolder(Percorso).Files
      Me.cc1.AddItem fil.Path
      DoEvents
   Next
    Me.cc1.Requery
    On Error GoTo 0
End Sub
Private Sub cmdApriFile_Click()
On Error GoTo err_proc
Dim str_link As Variant
Dim ret As Integer
str_link = Nz(Me!cc1, "")
If str_link <> "" Then ret = Shell("rundll32.exe
url.dll,FileProtocolHandler " & (str_link))
 exit_err:
Exit Sub
err_proc:
MsgBox Err.Description, vbCritical
Resume exit_err
End Sub
Private Sub Form_Load()
 Call RicercaFile
End Sub
ciao
Andrea Papi

 ha scritto nel messaggio
news:1158587032.9...@k70g2000cwa.googlegroups.com...
Sergio MAZZA ha scritto:






ciao
Andrea Papi
Grazie a entrambi e confermo, l'esempio di Alex è veramente bello e
funzionale, ma ho incontrato delle difficoltà.
Prima cosa è in versione 2002-2003, mentre io lavoro in Access 2000.
Ho quindi provato a convertire il tutto in versione 2000 e a compilare, ma
in esecuzione poi ho qualche problema.
Ho provato anche l'esempio di Andrea col quale ho errori.
Praticamente come dovrei agire ?
Ho provato così:
- nella form ho inserito una casella combinata con nome cc1
- nella form ho inserito un bottone e sull'evento click fa la call
ElencaFile(path)
ma nella riga
Me.cc1.RowSource = vbNullString
viene segnalato un errore (461 - impossibile trovare l'oggetto o il membro
dei dati)
Puoi darmi altre indicazioni ?
Grazie
Rikk

Riccardo Casadei ha scritto:

penso che il problema dipenda dal modo in cui vengono forniti i dati
alla casella combinata.
bisogna indicare che si tratto di un elenco di valori
Me!cc1.RowSourceType = "Elenco valori"
sostituisci la routine con questa
Private Sub ElencaFile()
   ' Ho modificato una Routine di Alex
   ' cc1 è il nome della Casella Combinata
   ' devi inoltre valorizzare correttamente la variabile percorso
   On Error Resume Next
   Dim Percorso As String
   Dim fso  As Object
   Dim fil
   Set fso = CreateObject("Scripting.FileSystemObject")
   Percorso = CurrentProject.Path & "\"
   Me!cc1.RowSourceType = "Elenco valori"
   Me!cc1.RowSource = Null
   For Each fil In fso.GetFolder(Percorso).Files
      Me!cc1.AddItem fil.Path
      DoEvents
   Next
    Me!cc1.Requery
 
    On Error GoTo 0
End Sub
ciao
Andrea Papi

 ha scritto nel messaggio
news:eem0vt$fqq$1...@area.cu.mi.it...

Ciao Sergio
con la demo di Alex sto impazzendo, è certamente molto spinta per me.
In pratica ho importato la form e i moduli nella mia applicazione, ma
all'apertura della form, non viene visualizzata la ToolBar, ovvero la parte
alta in cui ho i bottoni.
1° domanda:
a me potrebbe anche stare bene, perchè dovrei aprire tale form direttamente
su una cartella specifica; tu sai dirmi in che punto dovrei modificare il
codice per passargli direttamente la cartella ?
2° domanda:
ho comunque dovuto momentaneamente eliminare il riferimento a DAO 3.6 (che
uso per aggiornare le tabelle all'apertura del pgm) perchè se no mi
segnalava un errore di membro non roconosciuto in una istruzione .move
Se mantengo il riferimento  DAO 3.6, asterisco i punti in cui viene
utilizzata la .move, ma il risultato è sempre quello che non mostra la
toolbar.
Se hai risposta per il punto 1 sarei posto.
grazie
Rikk

 Rikk
Ciao.
-- 
Sergio MAZZA