rename کردن فایل های pdf

[ashkaseman]

سلام
من یکسری فایل pdf دارم که اسم این فایل های pdf شابک کتاب هست که بین شون کاراکتر اضافی خورده حالا من میخوام این کاراکتر های اضافی رو با برنامه ای بردارم چون تعدادشون زیاده نمیشه دستی اینکار رو کرد از دوستان خواهش میکنم کمکم کنند
با تشکر

[sina_saravi1]

سلام

فایل ها رو تو یه پوشه بریزید .
آدرس پوشه رو به نرم افزار بدید
نرم افزار تک تک فایل ها رو میگیره و با یه تابع جایگزینی متن ، متن مورد نظر رو به دست میارین و با نام جدید فایل رو ذخیره میکنید

[ashkaseman]

ممنونم از پاسخ شما دوست عزیز
ولی من خودم می خوام برنامه رو بنویسم مشکل من اینه که نمیدونم از چه تابع ای استفاده کنم لطفا در خصوص برنامه نویسیش کمکم کنید.
خیلی ممنون

[sina_saravi1]

ممنونم از پاسخ شما دوست عزیز
ولی من خودم می خوام برنامه رو بنویسم مشکل من اینه که نمیدونم از چه تابع ای استفاده کنم لطفا در خصوص برنامه نویسیش کمکم کنید.
خیلی ممنون

برای انتخاب پوشه از کنترل FolderBrowserDialog استفاده کنید
برای گرفتن فایل ها از کلاس IO استفاده کنید
توش توابع زیادی هست که کار شما رو ساده میکنه

یه نگاه بندازید اگه باز هم نتونستید بگید کد بزارم

[ashkaseman]

ازتون ممنون میشم اگر کدش رو بگذارید
خیلی ممنون

[sina_saravi1]

ازتون ممنون میشم اگر کدش رو بگذارید
خیلی ممنون

یه دکمه تو فرمت اضافه کن

Imports System.IO



Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim FolderPath As String = "D:\test" ' "Adrese pusheye havie file haye pdf"

        Dim DI As New DirectoryInfo(FolderPath)

        For Each Fl As FileInfo In DI.GetFiles

            If Fl.Extension = ".pdf" Then

                FileSystem.Rename(Fl.FullName, Fl.FullName.Replace("-", ""))

            End If

        Next

    End Sub

End Class