powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Иматиция Ctrl+C для файлов
10 сообщений из 10, страница 1 из 1
Иматиция Ctrl+C для файлов
    #32940851
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Необходимо с имитировать операцию 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
Иматиция Ctrl+C для файлов
    #32940969
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
API функция SHFileOperation. В API-Guide есть пример
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32941174
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если имеется в виду графическое отображение копирования, то вот было

Сообщение во время выполнения определенного действия
'Должна быть ссылка на 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
Иматиция Ctrl+C для файлов
    #32941726
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2marvan
Спасибо за ответ, но это не совсем то что я хотел, из-за того что вопрос я поставил не точно. Мне необходимо было с имитировать нажатие Ctrl+C к примеру 10 файлам в программе, а потом при нажатьи Ctrl+V в explorer разместить их в какой-то директории которую выберет user. Подобно тому как дать поиск файлов в explore на диске по маске *.doc. И выбрав файлы скопировать из в директорию.
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32941850
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот ещё пример
только для 10 файлов - 10 вызовов ShellFileCopy
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32943061
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2marvan
Очередная благодарность за ответ, но необходимо програмно пометить файлы для копирование (Ctrl+C), а через explorer их обычная вставка (не програмная).
Наверное есть еще подобные функции, либо возможности SHFileOperation не ограниченны одним файлом, т.к. копирование 10 фалой в explorer проходят через один диалог а не через 10.
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32943188
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тогда вот пример помещения файлов в буфер обмена
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32943319
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2marvan
Это действительно то, что мне было нужно.
Благодарю и пошел качать http://www.vbdiamond.com , чтоб не приходилось задавать вопросы на форуме, а только отвечать :)
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32943372
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2SmeL_md
заодно скачай
Planet Source Code - там раза в полтора больше примеров.
...
Рейтинг: 0 / 0
Иматиция Ctrl+C для файлов
    #32943621
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 marvan
На Planet Source Code 90% примеров настолько примитивны, что аж слезы наворачиваются; он не стоит своего траффика. С примерами API особенно туго. Рекомендуй лучше http://www.vb.kiev.ua/ - там даже профи найдет для себя много нового.
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Иматиция Ctrl+C для файлов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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