
Private Sub Form_Load()
Name "C:\12345" As "C:\54321"
End Sub
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Form_Load()
MoveFile "C:\12345", "C:\54321"
End Sub
Private Sub Form_Load()
Dim FSO As New Scripting.FileSystemObject
FSO.MoveFile "C:\12345", "C:\54321"
End Sub
alibek писал(а):skiperski, GWBasic надо было учить
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 7