[حل شده] خطا در دایرکتوری

[كامران]

سلام
من تابع زیر را نوشته ام تا اسم فایلهای داخل یک فولدر را برگرداند اما به یک مشکل برخوردم:اگر آدرس فولدر را در تابع بنویسم تابع درست کار مبکند مثل Fname("D:\IDM\Video";1) ولی اگر ابتدا آدرس را در یک سلول بنویسم و سپس تابع را به آن ارجاع دهم خطا میدهد مثل
A1=D:\IDM\Video
B1 =Fname(A1;1)
لطفآ راهنمائی کنید

تابع

Function Fname(adrs, Num)


    Dim FileName As Object
    Dim objShell As Object
    Dim objFolder As Object
    Dim d
    
        Set objShell = CreateObject("Shell.Application")
            If d = False Then Fname = "NOT FOUND"
        Set objFolder = objShell.Namespace(adrs)
    r = 0
        For Each FileName In objFolder.Items
            r = r + 1
                If r = Num Then Fname = objFolder.GetDetailsOf(FileName, 0)
        Next FileName
        
End Function

[Amir Ghasemiyan]

سلام دوست عزيز
خدمت شما

Function Fname1(adrs As Range, Num)
Dim FileName As Object
Dim objShell As Object
Dim objFolder As Object
Dim d
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(adrs.Value)
If d = False Then Fname = "NOT FOUND"
r = 0
For Each FileName In objFolder.Items
    r = r + 1
    If r = Num Then Fname = objFolder.GetDetailsOf(FileName, 0)
Next FileName
End Function