Drag&Drop в Explorer

[ASD]

Такая проблема, надо реализовать D&D из ListView в Explorer (файловый) а вообще в любую программу для файлов.
В принципе это не сложно но у меня одна проблема.
Файлы находятся на сервере и я не могу передать пути к ним (FileDrop).
Т.е. Мне надо получить путь на то куда бросили файлы и уже своей программой туда их поместить.

[iGrok]

Такая проблема, надо реализовать D&D из ListView в Explorer (файловый) а вообще в любую программу для файлов.
В принципе это не сложно но у меня одна проблема.
Файлы находятся на сервере и я не могу передать пути к ним (FileDrop).
Т.е. Мне надо получить путь на то куда бросили файлы и уже своей программой туда их поместить.

Это не совсем то, конечно.. Но что если извратиться, и перед D&D кидать файл во временную папку, и давать именно этот временный путь, а после копирования удалять?

[Nord777]

Мне надо получить путь на то куда бросили файлы и уже СВОЕЙ программой туда их поместить

Именно своей? А чем обусловлено такое желание? У целевой стороны нет доступа к файлам на сервере?
Если это так, то есть одна мысля(и Igrok меня уже опередил ).
А механизм Drag-and-Drop мне кажется не позволит тебе сделать задуманное.

[ASD]

Эта идея у меня была уже, но что если к примеру там куча мелких файлов или один большой...
Это займет время на передачу с сервера + перенос или копирование из темпа...
Почему нужна такая реализация, потому что к фалам не указать пути... они передаются по сети...
Вообще например как реализуют такое например с FTP клиентами? Не ужели они в темп льют сначала?
Пока ничего не нагуглил...

[ASD]

Такой вопрос по теме. Как сбросить выделенное в Explorer/

Делаю так:

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


Private Sub FileList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FileList.MouseDown

        Dim filea(1) As String
        filea(0) = "c:\us.txt"
        Dim _data As DataObject = New DataObject(DataFormats.FileDrop, filea)
        FileList.DoDragDrop(_data, DragDropEffects.Copy)


    End Sub



И нифига. Пробовал в ItemDrag DragLeave ....
Причем в гугле примеры как у меня... Но почему то Explorer не делает копирования (файл естессно есть)

[ASD]

Отбой! Понял... Блин массив больше чем надо.

[ASD]

Рано радовался

Выручайте, как правильно сделать что бы когда произошел Drop в Explorer(или др приложение), сначала закачать файлы в темп а потом передать их Explorerу ?

[Nord777]

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

   Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
      Dim StrCollection As New System.Collections.Specialized.StringCollection()
      Dim LV As ListView = CType(sender, ListView)
      Dim DestPath, SourcePath, TmpDir As String
      Dim DObj As New DataObject

      TmpDir = Path.Combine(Path.GetTempPath, Path.GetRandomFileName)

      'Создать папку во временном каталоге
      Directory.CreateDirectory(TmpDir)

      For Each LVI As ListViewItem In LV.SelectedItems
         'Скопировать каждый файл во временную папку
         SourcePath = Path.Combine(LVI.SubItems(0).Text, LVI.Text)
         DestPath = Path.Combine(TmpDir, Path.GetFileName(LVI.Text))

         My.Computer.FileSystem.CopyFile(SourcePath, DestPath, True)
         StrCollection.Add(DestPath)
      Next

      DObj.SetFileDropList(StrCollection)
      LV.DoDragDrop(DObj, DragDropEffects.Copy)

   End Sub

Один нюанс. Файлы кидаются во временную папку не во время дропа, а в начале перетаскивания.

[ASD]

Я сделал так. Тогда копируется после дропа в др. приложение. (пути конечно генерить и передавать надо заранее)

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

   Private Sub FileList_QueryContinueDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.QueryContinueDragEventArgs) Handles FileList.QueryContinueDrag

        If e.Action = DragAction.Drop Then
            My.Computer.FileSystem.CreateDirectory(_DropToPath)
            DownloadFiles(_DropToPath)
        End If
    End Sub



[Nord777]

При таком раскладе прога будет реагировать на любое отпускание кнопки мыши.
Тебе тогда надо еще анализировать последнее значение e.Effect в обработчике GiveFeedback.
Если оно не равно DragAction.Cancel или DragAction.None, то значит другое приложение способно принять файлы,
в противном случае - нет.

[ASD]

не на любое а только на drop.
Если приложение не приняло то и не будет drop
Будет cancel

[Nord777]

Cancel будет если пользователь во время перетаскивания нажимает esc

[ASD]

Ты прав... В принципе так и отслеживают (судя по гуглевым примерам)...