invece per ottenere il nome del file contenuto in una cartella?

Utilizzo

Dim fso As FileSystemObject
Dim fsoFolder As Folder
Dim fsoFiles As files
Dim fsoFile As file

Set fso = New FileSystemObject
Set fsoFolder = fso.GetFolder(PercorsoDirectory)
Set fsoFiles = fsoFolder.files

'numero dei files contenuti nella cartella
... fsoFiles.Count

'nomi dei files
For Each fsoFile In fsoFiles
... fsoFile .Name
Next

che funziona, ma vorrei solo ricevere il nome del primo file o di un file presente nella directory. Come posso fare invece di for each?