Получить список файлов из Clipboard -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.146]

Правила раздела Visual Basic: Общие вопросы

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта

FAQ Раздела user posted image

Кладовка

Наши Исходники user posted image

API-Guide

Поиск по Разделу user posted image

MSDN Library Online user posted image

Google

Ваше мнение о модераторах: user posted image

SCINER,

B.V.

Модераторы: SCINER, B.V.

Ссылки по теме:

Получить список файлов из Clipboard

Новое голосование

Получить список файлов из Clipboard , Когда в форточке жмёшь на файлы Ctrl+C

Mulder

Сообщ. #1 , 07.06.05, 16:25

Senior Member

Профиль · PM

Поощрения: 2 Dgm

Рейтинг (т): 9

Что-то я никак не пойму как сделать такую незамысловатую штуку :blink:

? Т.е. мне надо чтоб я в експлорере выделил ну там сколько то файлов, нажал Ctrl+C и в VB потом получил бы этот список файлов. Непойму никак как :wall:

Сообщение отредактировано: Molder - 07.06.05, 16:27

SpawnProduction	Сообщ. #2 , 07.06.05, 16:52
Unregistered	Копирую файл, проверяю буфер обмена: а там 0

SCINER

Сообщ. #3 , 07.06.05, 17:17

Moderator

Профиль · PM

Поощрения: 45 Dgm

Рейтинг (т): 228

Option Explicit

Private Const CF_HDROP = 15

Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long

Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long

Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long

Private Sub Command1_Click()

Dim i As Long

Dim Tmp As String

Dim HDROP As Long

Dim lFiles As Long

Call List1.Clear

If IsClipboardFormatAvailable(CF_HDROP) = 0 Then Exit Sub

If OpenClipboard(hwnd) = 0 Then Exit Sub

HDROP = GetClipboardData(CF_HDROP)

lFiles = DragQueryFile(HDROP, -1&, "", 0)

Tmp = Space(260)

For i = 0 To lFiles - 1

Call DragQueryFile(HDROP, i, Tmp, Len(Tmp))

List1.AddItem Tmp

CloseClipboard

End Sub

Mulder	Сообщ. #4 , 07.06.05, 19:02
Senior Member Профиль · PM Поощрения: 2 Dgm Рейтинг (т): 9	SCINER, млин, как всегда и красиво и работает и то что надо ! ЗЫ так и думал что средствами VB этого не добиться...

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0347 ] [ 15 queries used ] [ Generated: 5.11.25, 16:17 GMT ]