| Вопрос: Как скопировать файл? | Добавлено: 04.11.07 18:39 |
Автор вопроса:  Tolya
|
|
Как в Visual Basic скопировать файл?
FileCopy (FileToCopy, Destination) - не работает! |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 04.11.07 18:42 |
|
FileCopy (FileToCopy, Destination) - не работает! Не ври.
Есть еще АПИ CopyFile. |
||
|
Номер ответа: 2 Автор ответа:  Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #2 | Добавлено: 04.11.07 19:21 |
|
Private Sub Form_Load()
Dim sFileToCopy As String Dim sDestination As String sFileToCopy = "путь_к_файлу" 'Например, "C:\WINDOWS\explorer.exe" sDestination = "путь_для_копирования_с_указанием_имени_файла" 'Например, "C:\file.exe" FileCopy sFileToCopy, sDestination End Sub |
||
|
Номер ответа: 3 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 04.11.07 22:33 |
вы забыли сказать человеку, что если копируешь в несуществующую папку, то ничего не скопируется  а он скорее всего это и делает
|
||
|
Номер ответа: 4 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #4 | Добавлено: 04.11.07 23:08 |
|
Для того чтобы скопировать любой файл через АПИ, запусти Visual Basic 6>Создать проект exe
На форму кинь одну кнопку, и создай модуль в код модуля впиши следующее: Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long В код кнопки впиши следующее: Dim x As Long x = CopyFile("C:\1.gif", "C:\2.gif", 1) If x = 0 Then MsgBox "Файл уже существует!!!", 16, "Файл не скопировался" Else MsgBox "Файл успешно скопировался", 64, "Инфо!" End If В данноп примере файл C:\1.gif копируется в файл C:\2.gif |
||
|
Номер ответа: 5 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #5 | Добавлено: 04.11.07 23:31 |
|
вы забыли сказать человеку, что если копируешь в несуществующую папку, то ничего не скопируется Ну пока автор топика этого не просит... а он скорее всего это и делает
|
||
|
Номер ответа: 6 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #6 | Добавлено: 04.11.07 23:33 |
| Кстати, что быстрее будет: копирование стандартными средствами или все-таки через WIN-API? | ||
|
Номер ответа: 7 Автор ответа: shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #7 | Добавлено: 04.11.07 23:38 |
| Почти наверняка VB использует эту же самую АПИ для копирования. | ||
|
Номер ответа: 8 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #8 | Добавлено: 05.11.07 00:21 |
| ну там еще куча вызовов и проверок, поэтому на АПИ будет быстрее | ||
|
Номер ответа: 9 Автор ответа: Tolya Вопросов: 13 Ответов: 18 |
Профиль | | #9 | Добавлено: 05.11.07 09:39 |
| Как в Visual Basic скопировать файл в несуществующую папку? | ||
|
Номер ответа: 10 Автор ответа: Silver FerrumICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #10 | Добавлено: 05.11.07 10:42 |
|
1. Создаешь папку.
MkDir "MYDIR" ' Создаёт новую папку в текущем каталоге.
MkDir "C:\MYDIR" ' Создаёт новую папку в корневом каталоге диска С. 2. Копируешь FileCopy "C:\Windows\Win.ini", "C:\Backups\Win.bak"
|
||
|
Номер ответа: 11 Автор ответа:  TolyaВопросов: 13 Ответов: 18 |
Профиль | | #11 | Добавлено: 05.11.07 11:00 |
| Спасибо, у меня получилось! | ||
|
Номер ответа: 12 Автор ответа: TolyaВопросов: 13 Ответов: 18 |
Профиль | | #12 | Добавлено: 05.11.07 11:31 |
| Как в image разрезать изображение, а потом вставить одну из этих частей вставить в другой image и зеркально перевернуть? | ||
|
Номер ответа: 13 Автор ответа: shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #13 | Добавлено: 05.11.07 16:47 |
|
Как в image разрезать изображение, а потом вставить одну из этих частей вставить в другой image и зеркально перевернуть? Создавай для этого новую тему.
|
||
Страница: 1 |