[سامي محمد]

كود :

  For Each x As String In My.Computer.FileSystem.GetFiles(Application.StartupPath & "\F\")
            My.Computer.FileSystem.RenameFile(x, IO.Path.GetFileName(x).Split(".")(1) & IO.Path.GetExtension(x))
        Next

هذا مجلد داخل ملف البرنامد بأسم F و بامكانك التعيل عليه