| Вопрос: Clipboard и File | Добавлено: 26.01.06 20:01 |
Автор вопроса:  wishco
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа:  Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #16 | Добавлено: 30.01.06 19:59 |
|
пример при Paste дает тебе массив имен файлов из буфера Files(i). Дальше копируй уже
Name Files(0) As "с:\новый.txt"
А вот как узнать, что был Cut или Copy ? |
||
|
Номер ответа: 17 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #17 | Добавлено: 30.01.06 20:18 |
| Пардон для копирования FileCopy ж надо. | ||
|
Номер ответа: 18 Автор ответа: wishco Вопросов: 17 Ответов: 21 |
Профиль | | #18 | Добавлено: 30.01.06 21:15 |
|
Проще всего в конце процедуры
сослаться на сою функцию, зная File(i). Public Function copyFile(file_path1, file_path2) As Boolean On Error GoTo err Dim fso, fills Set fso = CreateObject("Scripting.FileSystemObject" 
Set fills = fso.getfile(file_path1) fills.Copy (file_path2) copyFile = True Exit Function err: copyFile = False End Function Но я то хочу по человечески. |
||