kodu aşağıdaki ile değiştirip dener misiniz?

Dim MyFile As String

Dim txtDosyaAdi() As String

'On Error Resume Next





ReDim DirectoryListArray(1000)



MyFile = Dir$(CurrentProject.Path & "\Müşteriler\_Tarananlar\*.pdf")

Counter = 0

Do While MyFile <> ""

    DirectoryListArray(Counter) = Replace(MyFile, ".pdf", "")

    MyFile = Dir$

    Counter = Counter + 1



Loop



For x = 0 To Counter - 1

xMyFile = DirectoryListArray(x)

txtDosyaAdi = Split(xMyFile, "_")



xKonum = CurrentProject.Path & "\Müşteriler\_Tarananlar\"

'________________Klasör yoksa olustur__________

Xhedef = CurrentProject.Path & "\Müşteriler\" & txtDosyaAdi(0)

If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef

Xhedef = Xhedef & "\" & Replace(txtDosyaAdi(3), ".pdf", "")

If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef

Xhedef = Xhedef & "\" & txtDosyaAdi(1)

If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef

Xhedef = Xhedef & "\" & txtDosyaAdi(2)

If Dir(Xhedef, vbDirectory) = "" Then MkDir Xhedef

Xhedef = Xhedef & "\"

'________________Klasör yoksa olustur bitti__________

'_______________dosya var mı

n = 1

Do

   DosyaAdi = Xhedef & xMyFile & "_" & Replace(Space$(3 - Len(n)), " ", "0") & n & ".pdf"

    n = n + 1

Loop Until Dir(DosyaAdi) = ""

'_______________dosya var mı bitti

Name xKonum & xMyFile & ".pdf" As DosyaAdi 'taşıma



DoCmd.RunSQL "insert into 2_Dosya_Link_T (MUSTERI_ADI,DOSYA_LINK) values ('" & _

              txtDosyaAdi(0) & "', '#" & DosyaAdi & "#');"

Next