3 Replies Latest reply: Jan 20, 2016 1:31 AM by Marcus Sommer RSS

    vb Macro to browse QVW or QVD files

    Rakul Alagu

      Hi All,

      The below code works fine all type of files other than QVW, QVD and CSV.

           Is it not possible to copy a QVW file from one location to another location using vb scripts?

       

      Sub File_Browser()

      Dim objShell

      Dim strFileName

      Dim strFilePath

      Dim objFile

      Set objShell = CreateObject("Shell.Application")

      Set objFile = objShell.BrowseForFolder(0, "Choose a file:", 16384)

      strFileName = objFile.Title

      strFilePath = objFile.self.Path

      MsgBox "Just the file name: " & strFileName & vbCrLf & "The full path: " & strFilePath

      Set objFileName = Nothing

      Set objFilePath = Nothing

      Set objShell = Nothing

       

       

      End Sub

       

      Thanks,

      Rakul.