Clipboard: данные в формате vbCFFiles

[mrs2000]

Как поместить список файлов в буфер обмена (формат vbCFFiles), чтобы его понимал Проводник? Т.е. в прграмма показывает список файлов какой-либо папки, юзер нажимет Ctrl+C, затем идет в проводник и копирует их туда.

[Saturn.65]

Есть такой пример ;

Код: Выделить всё

Private Sub Text1_Click()
On Error Resume Next
    'очистим буфер
    Clipboard.Clear
    'скопируем текст в простом формате
    Clipboard.SetText Text1.Text, _
    vbCFText
End Sub


Копируем содержание Text1.Text.
Может что подобное придумать?

[tyomitch]

Автору: ключевое слово DataObjectFiles

[mrs2000]

Автору: ключевое слово DataObjectFiles

Такой код конечно работает при перетаскивании с моего окна в Проводник

Код: Выделить всё

Private Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Data.Clear
    Data.Files.Add "C:\myfile.txt"
    Data.SetData , vbCFFiles
End Sub


Но хотелось бы чтобы у меня Ctrl+C, а в Проводнике Ctrl+V.