<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Not able to export txt file without creating a folder in QlikView</title>
    <link>https://community.qlik.com/t5/QlikView/Not-able-to-export-txt-file-without-creating-a-folder/m-p/261714#M98619</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hello all,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I am not able to export a txt file either on the desktop or in the drives without creating a folder.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;How can i export the txt file without creating a folder ?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; or&lt;/P&gt;&lt;P&gt;How can i display the error message as "&lt;STRONG&gt; Folder should be selected&lt;/STRONG&gt;"&amp;nbsp; for the following macro&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Function GroupFolders()&lt;/P&gt;&lt;P&gt;Dim objShell&lt;/P&gt;&lt;P&gt;Dim ssfWINDOWS&lt;/P&gt;&lt;P&gt;Dim objFolder&lt;/P&gt;&lt;P&gt;Set objShell = CreateObject("Shell.Application")&lt;/P&gt;&lt;P&gt;Set objFolder = objShell.BrowseForFolder(0, "Example Select Folder", 0, strRootPath)&lt;/P&gt;&lt;P&gt;If (Not objFolder Is Nothing) Then&lt;/P&gt;&lt;P&gt;'Add code here.&lt;/P&gt;&lt;P&gt;'MSGBOX (objFolder.Title)&lt;/P&gt;&lt;P&gt;MSGBOX "Data has been Transfered to "&amp;amp; objFolder.ParentFolder.ParseName(objFolder.Title).Path&lt;/P&gt;&lt;P&gt; 'Set V1 = ActiveDocument.GetVariable("vGroup1Dir")&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set obj1= ActiveDocument.GetSheetObject("CH20")&lt;/P&gt;&lt;P&gt; obj1.Export objFolder.ParentFolder.ParseName(objFolder.Title).Path&amp;amp;"\"&amp;amp;Date()&amp;amp;"_"&amp;amp;replace(Time(),":","")&amp;amp;".txt",","&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' Msgbox("Data Has Been Transfered to ")&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;End If&lt;/P&gt;&lt;P&gt;Set objFolder = Nothing&lt;/P&gt;&lt;P&gt;Set objShell = Nothing&lt;/P&gt;&lt;P&gt;End Function&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I hope some 1 can help me&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Wed, 10 Aug 2011 05:49:57 GMT</pubDate>
    <dc:creator />
    <dc:date>2011-08-10T05:49:57Z</dc:date>
    <item>
      <title>Not able to export txt file without creating a folder</title>
      <link>https://community.qlik.com/t5/QlikView/Not-able-to-export-txt-file-without-creating-a-folder/m-p/261714#M98619</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hello all,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I am not able to export a txt file either on the desktop or in the drives without creating a folder.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;How can i export the txt file without creating a folder ?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; or&lt;/P&gt;&lt;P&gt;How can i display the error message as "&lt;STRONG&gt; Folder should be selected&lt;/STRONG&gt;"&amp;nbsp; for the following macro&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Function GroupFolders()&lt;/P&gt;&lt;P&gt;Dim objShell&lt;/P&gt;&lt;P&gt;Dim ssfWINDOWS&lt;/P&gt;&lt;P&gt;Dim objFolder&lt;/P&gt;&lt;P&gt;Set objShell = CreateObject("Shell.Application")&lt;/P&gt;&lt;P&gt;Set objFolder = objShell.BrowseForFolder(0, "Example Select Folder", 0, strRootPath)&lt;/P&gt;&lt;P&gt;If (Not objFolder Is Nothing) Then&lt;/P&gt;&lt;P&gt;'Add code here.&lt;/P&gt;&lt;P&gt;'MSGBOX (objFolder.Title)&lt;/P&gt;&lt;P&gt;MSGBOX "Data has been Transfered to "&amp;amp; objFolder.ParentFolder.ParseName(objFolder.Title).Path&lt;/P&gt;&lt;P&gt; 'Set V1 = ActiveDocument.GetVariable("vGroup1Dir")&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set obj1= ActiveDocument.GetSheetObject("CH20")&lt;/P&gt;&lt;P&gt; obj1.Export objFolder.ParentFolder.ParseName(objFolder.Title).Path&amp;amp;"\"&amp;amp;Date()&amp;amp;"_"&amp;amp;replace(Time(),":","")&amp;amp;".txt",","&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' Msgbox("Data Has Been Transfered to ")&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;End If&lt;/P&gt;&lt;P&gt;Set objFolder = Nothing&lt;/P&gt;&lt;P&gt;Set objShell = Nothing&lt;/P&gt;&lt;P&gt;End Function&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I hope some 1 can help me&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thank you&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 10 Aug 2011 05:49:57 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Not-able-to-export-txt-file-without-creating-a-folder/m-p/261714#M98619</guid>
      <dc:creator />
      <dc:date>2011-08-10T05:49:57Z</dc:date>
    </item>
  </channel>
</rss>

