Klasörden dosya adını alma (Kod Kısaltma)

[tamer42]

Merhaba,
Aşağıdaki kod ile bir klasör için ilk Jpeg dosya adını alabiliyoruz,
While .... Wend döngüsüne girmeden daha kısa bir yöntem olabilir mi?

xFile = FileList(1) satırını döngüye girmeden pratik bir yöntem ile alınamaz mı?

desteğiniz için şimdiden teşekkürler.

Private Sub FileDemonstration(FolderName As String)
    Dim FileName As String, FileList() As String, lCount As Long
    lCount = 0
    
    On Error Resume Next
    xFile = ""
    
    FileName = Dir(FolderName & "\*.jpg")
    While Len(FileName) > 1
        lCount = lCount + 1
        ReDim Preserve FileList(1 To lCount)
        FileList(lCount) = FileName
        FileName = Dir()
    Wend

If lCount > 0 Then
    xFile = FileList(1)
End If

End Sub

 

[Levent Menteşoğlu]

Sadece aşağıdaki satır direk ilk dosya adını getirmiyor mu?

FileName = Dir(FolderName & "\*.jpg")

 

[tamer42]

Sadece aşağıdaki satır direk ilk dosya adını getirmiyor mu?

FileName = Dir(FolderName & "\*.jpg")

Teşekkürler Levent Hocam