Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Command1_Click()
MoveFile "c:WindowsDesktopa.txt", "c:a.txt"
End Sub
from ---
Copyright © 2013 Visual Basic.
0 التعليقات:
إرسال تعليق