Soru Kısa dosya adını döngüde kullanmak

[k0081]

Merhaba arkadaşlar;

Veysel üstad'ın

Göndermiş olduğu bu kod ile bir dosya ismini (kısa isim) olarak değişkene alabiliyorum.

* Çoklu dosyada bunu bir döngüde nasıl kullanabilirim ?

Private Declare Function GetShortPathName Lib "kernel32" _
                                          Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
                                                                     ByVal lpszShortPath As String, ByVal cchBuffer As Long) _
                                                                     As Long
Public Function GetShortFileName(ByVal FullPath As String) _
       As String
    Dim lAns As Long
    Dim sAns As String
    Dim iLen As Integer
    On Error Resume Next
    If Dir(FullPath) = "" Then Exit Function
    sAns = Space(255)
    lAns = GetShortPathName(FullPath, sAns, 255)
    GetShortFileName = Left(sAns, lAns)
    On Error GoTo 0
End Function

 

[veyselemre]

Sub TEST()
    Dim i&
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        Cells(i, 2).Value = GetShortFileName(Cells(i, 1).Value)
    Next i
End Sub

 

[k0081]

Sub TEST()
    Dim i&
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        Cells(i, 2).Value = GetShortFileName(Cells(i, 1).Value)
    Next i
End Sub

A kolonuna uzun dosya isimlerini girdim. Kodu çalıştırdım B kolonuna hiç bir bilgi yazmadı. Hata da vermedi.

 

[veyselemre]

Full dosya yoluyla birlikte yazmanız gerekir. Sadece dosya isimlerini yazdıysanız çalışmaz.

 

[k0081]

Full dosya yoluyla birlikte yazmanız gerekir. Sadece dosya isimlerini yazdıysanız çalışmaz.

Evet dosya ismi yazmıştım, Tekrar deniyorum
*************

Hocam Tamamdır .. Çok Teşekkürler.