Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Иматиция Ctrl+C для файлов / 10 сообщений из 10, страница 1 из 1
02.03.2005, 12:52:40
    #32940851
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
Необходимо с имитировать операцию Ctrl+C (Ctrl+X || Ctrl+V) к файлам, директориям, таким образом чтоб был виден диалог копирования файлов, как это происходит при копирования через explorer, следовательно примеры подобные данному листингу
Dim f
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\autoexec.bat")
f.Copy "c:\Recycled\test.txt"
лучше не предлогать :)
Благодарю за внимание :)
...
Рейтинг: 0 / 0
02.03.2005, 13:20:39
    #32940969
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
API функция SHFileOperation. В API-Guide есть пример
...
Рейтинг: 0 / 0
02.03.2005, 14:08:20
    #32941174
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
если имеется в виду графическое отображение копирования, то вот было

Сообщение во время выполнения определенного действия
'Должна быть ссылка на Microsoft Common Controls -2(SP6)
'На форме лежит Animation растянутый 5х1
Me.Animation1.AutoPlay = True
'Файл FILECOPY.AVI взять из \Program Files\Microsoft Visual Studio\Common\Graphics\Videos
On Error GoTo Err_A
Me.Animation1.Open App.Path & "\FILECOPY.AVI"
Err_A:
...
Рейтинг: 0 / 0
02.03.2005, 16:19:08
    #32941726
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
2marvan
Спасибо за ответ, но это не совсем то что я хотел, из-за того что вопрос я поставил не точно. Мне необходимо было с имитировать нажатие Ctrl+C к примеру 10 файлам в программе, а потом при нажатьи Ctrl+V в explorer разместить их в какой-то директории которую выберет user. Подобно тому как дать поиск файлов в explore на диске по маске *.doc. И выбрав файлы скопировать из в директорию.
...
Рейтинг: 0 / 0
02.03.2005, 16:52:35
    #32941850
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
вот ещё пример
только для 10 файлов - 10 вызовов ShellFileCopy
...
Рейтинг: 0 / 0
03.03.2005, 10:57:21
    #32943061
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
2marvan
Очередная благодарность за ответ, но необходимо програмно пометить файлы для копирование (Ctrl+C), а через explorer их обычная вставка (не програмная).
Наверное есть еще подобные функции, либо возможности SHFileOperation не ограниченны одним файлом, т.к. копирование 10 фалой в explorer проходят через один диалог а не через 10.
...
Рейтинг: 0 / 0
03.03.2005, 11:31:36
    #32943188
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
тогда вот пример помещения файлов в буфер обмена
...
Рейтинг: 0 / 0
03.03.2005, 12:21:58
    #32943319
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
2marvan
Это действительно то, что мне было нужно.
Благодарю и пошел качать http://www.vbdiamond.com , чтоб не приходилось задавать вопросы на форуме, а только отвечать :)
...
Рейтинг: 0 / 0
03.03.2005, 12:40:52
    #32943372
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
2SmeL_md
заодно скачай
Planet Source Code - там раза в полтора больше примеров.
...
Рейтинг: 0 / 0
03.03.2005, 13:46:03
    #32943621
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Иматиция Ctrl+C для файлов
2 marvan
На Planet Source Code 90% примеров настолько примитивны, что аж слезы наворачиваются; он не стоит своего траффика. С примерами API особенно туго. Рекомендуй лучше http://www.vb.kiev.ua/ - там даже профи найдет для себя много нового.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Иматиция Ctrl+C для файлов / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]