Newsgroup: it.comp.appl.access
Titolo: sapere che file ci sono in una cartella

ciao a tutti il mio problema è questo:
vorrei conoscere il nome dei file che ci sono in una cartella.
nell'help ho trovato alcune cose ma non soddisfano le mie esigenze.
con questo codice mi fa sapere con un msgbox per ogni file il percorso e
il nome, quasi quasi perfetto.
Private Sub Comando28_Click()
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\"
    .FileName = "*"
    If .Execute(SortBy:=msoSortbyFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
    End If
End With
End Sub
il mio problema è che questo codice una volta fatto partire fa vedere
tutti i file, io invece vorrei visualizzare i vari file uno per volta ad
ogni pressione del tasto.
esempio
click
risultato
c:\pippo.txt
click
risultato
c:\foto.jpg
ecc
A cosa serve.
devo far visualizzare alcune foto all'interno di un controllo immagine e
a ogni clik devo cambiare la foto.

 ecc

Allora tu usa quel codice del Msgbox e adattalo per un bel INSERT in una
tua Tabella d'appoggio sulla quale baserai la tua form per la
visualizzazione delle tue immagini...
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 a ogni clik devo cambiare la foto.
Devi scomporre la cosa in 2 parti.
1)Visualizzare in una ListBox(per esempio) l'elenco dei File
2)Su evento Click della ListBox aprire il file
Io faccio cosě:
Uso una ListBox a 2 Colonne della quale la 1° a larghezza=0
Inserisci i riferimenti a Microsoft Scripting Runtime
Adatta i nomi alle tue esigenze.
'    Questa Routine č da eseguire per riempire la ListBox magari su LOAD di
Form
'    Ricordati di impostare il Typo Origine riga a "Elenco Valori"
Private Sub FillAddress()
   On Error Resume Next
   Dim fso           As New FileSystemObject
   Dim start         As String
   Dim fil
   ' Quě passa la Folder di partenza
   For Each fil In fso.GetFolder("C:\").Files
         Me.NomelstBox.AddItem fil.Path & ";" & Mid(
fil.name
, 1,
InStr(
fil.name
, ".") - 1)
         DoEvents
   Next
End Sub
'    Questa magari sarebbe meglio su Doppio Click, poi vedi tu
Private NomelstBox_Click()
    call ExecuteFile(Me.NomeListBox)
End Sub
Public Sub ExecuteFile(FilePath As String)
'Esegue file
On Error GoTo error
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:ct29ks$spt$1...@news.newsland.it...

questo l'ho fatto, solo che ho la necessità di far cambiare una immagine
alla volta ogni click.
così se faccio un click me le fa passare tutte nel giro di 1 secondo