[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Перемещаем файл (Перемещаем файл)
Перемещаем файл
ilimДата: Вторник, 15.11.2011, 23:07 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Перемещаем файл
===================================================
для этого мы используем два оператора сразу. Например нам нужно переместить файл 1.txt из C:\ в C:\2\ . Пишем:
Filecopy "C:\1.txt","C:\2\1.txt"
Kill ("C:\1.txt")

2 способ API!
Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Command1_Click()
Dim retval As Long ' возвращаемое значение

retval = MoveFile("C:\1.txt", "C:\2\1.txt")
If retval = 1 Then
MsgBox "Успешно переместился )"
Else
MsgBox "Не успешно переместился )"
End If
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Перемещаем файл (Перемещаем файл)
Страница 1 из 11
Поиск: