ا الفارس New member 21 فبراير 2019 1,010 0 0 6 أبريل 2019 #1 كود لنقل الملف كود: كود Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() MoveFile "c:\my documents\a.txt", "c:\a.txt" End Sub
كود لنقل الملف كود: كود Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() MoveFile "c:\my documents\a.txt", "c:\a.txt" End Sub
