Copy file to clipboard and use Clipboard object in VB.NET (#2)

• • Reply

  14 years ago

  by alpha24

  SON TRAN

  , Viet Nam

  Joined 14 years ago
  Public Function ClipboardCopyFiles(ByVal Files() As String) As Boolean
  
          Dim dataObject As New DataObject
          Dim varObject(0) As String
  
          Dim fileName As String
          Dim idxFile As Integer
          Dim scriptingFile As Scripting.File
          Dim fileSysObject As New Scripting.FileSystemObject
  
          Try
              'Clipboard.SetDataObject(New DataObject)
              For idxFile = LBound(Files) To UBound(Files) - 1
                  If Not (Files(idxFile) Is Nothing) Then
                      scriptingFile = fileSysObject.GetFile(Files(idxFile).ToString())
                      fileName = scriptingFile.ShortPath
                  End If
              Next
              '//
              varObject(0) = fileName
              dataObject.SetData(DataFormats.FileDrop, False, varObject)
              Clipboard.SetDataObject(dataObject)
              '//
              ClipboardCopyFiles = True
          Catch ex As Exception
              MsgBox(ex.Source & " : " & ex.Message)
              ClipboardCopyFiles = False
              Throw ex
          End Try
  
      End Function
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Report abuse