pdf isim sadeleştirme

[igultekin2000]

iyi akşamlar, hayırlı kandiller; gib' ten indirdiğim dosyanın ismini sadeleştirmek istiyorum. uzun kodu içinde kullanabileceğim

IVD-VRG_LVH_1EOTMSEIB78F_67522111976_1110401527

uzun ismin kırpılarak

67522111976

şekline nasıl getirmek istiyorum. dosya pdf formadında. Teşekkürler.

 

[Haluk]

Örnek:

Sub Test()
    Dim myPDF As String
    myPDF = "[COLOR=Red][B]C:\TestFolder\[/B][/COLOR][B][COLOR=Blue]IVD-VRG_LVH_1EOTMSEIB78F_67522111976_1110401527.pdf[/COLOR][/B]"
    newPDF = "[B][COLOR=red]C:\TestFolder\[/COLOR][/B]" & Split(myPDF, "_")(3) & ".pdf"
    Name myPDF As newPDF
End Sub

.

 

[igultekin2000]

hata veriyor

Örnek:

Sub Test()
    Dim myPDF As String
    myPDF = "[COLOR=Red][B]C:\TestFolder\[/B][/COLOR][B][COLOR=Blue]IVD-VRG_LVH_1EOTMSEIB78F_67522111976_1110401527.pdf[/COLOR][/B]"
    newPDF = "[B][COLOR=red]C:\TestFolder\[/COLOR][/B]" & Split(myPDF, "_")(3) & ".pdf"
    Name myPDF As newPDF
End Sub

.

Teşekkkürler, uzantıda hata yapmışım, sorunsuz çalışıyor.

 

[Haluk]

Kolay gelsin ...

.