تبديل اسم ما

يمكنك إعادة تسمية ملف أو مجلد عن طريق الدالة MoveFile كما في المثال التالي

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Form_Load()
MoveFile "C:Book", "C:Pen"
'MoveFile "C:Bookfile.exe", "C:Penfile.txt"
End Sub

وشكرا

اشكرك على سرعة الرد وبارك الله فيك واجزل المثوبة لك