topic Re: Re: Copy file to new Folder in QlikView

Copy file to new Folder

rustyfishbones — Fri, 30 May 2014 11:22:10 GMT

Hi All,

I have a Qlikview App that tracks code files, I want to use a macro to copy the file I have selected to another folder.

At the moment I can delete the file, open the file or Open the Directory.

I want to copy the 1 file I have selected and place the copied file in another folder

I have copied files before from the script, but I need to have a button option to run a macro and copy the file based on the [Full Path] I have selected

Thanks

Alan

Re: Copy file to new Folder

Fri, 30 May 2014 11:34:13 GMT

This may help

Qlikview and version control, part 2 - Sigma Blogg

Re: Copy file to new FolderFri, 30 May 2014 11:35:03 GMT
From Blogg.sigma.se
Dim fso
' create a global copy of the filesystem object
Set fso = CreateObject("Scripting.FileSystemObject")
TemplatePath = fso.GetAbsolutePathName(".") & "\qvw.template"
<a id="ctl00_FullRegion_PC_148_1_EditForm_MainBody_ctl00_resize" class="mceResize" onclick="return false;" href="javascript:;"></a>' WScript.Echo TemplatePath
' Call the RecurseFolders routine
' Takes one argument - in this case, the Path of the folder to be searched
RecurseFolders "."
' echo the job is completed
' WScript.Echo "Completed!"
Sub RecurseFolders(sPath)
With fso.GetFolder(sPath)
    if .SubFolders.Count > 0 Then
        For Each Folder In .SubFolders
            if Left(Folder.Name, 1) <> "." Then
                If InStr(1, folder.Path, "-prj") <> 0 Then
                    ' Copy and rename template to create empty qvd file next to prj folder
                    If fso.FileExists(TemplatePath) Then
                        fso.CopyFile TemplatePath, Replace(folder.Path ,"-prj",".qvw"), OverWriteExisting
                    End If
                End If 
            ' Recurse to check for further subfolders
            RecurseFolders folder.Path
            End If
        Next
    End if
End With
End Sub

Re: Copy file to new Folder

rustyfishbones — Fri, 30 May 2014 12:41:40 GMT

Hi,

Thanks, but I don't think does what I need

Regards

Alan

Re: Copy file to new Folder

rustyfishbones — Fri, 30 May 2014 14:00:42 GMT

Can anyone help with this

Re: Copy file to new Folder

nivellen11 — Mon, 02 Jun 2014 10:45:07 GMT

I used below script. You just need to replace string to dynamically generate path.

SUB CopyFileSub

rFile = "C:\source.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.GetFile(rFile)

MyFile.Copy ("C:\copy.txt")

END SUB

and more advance version ( copy to user desktop) :

SUB CopyFileSub

rFile = "C:\source.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")

Set MyFile = fso.GetFile(rFile)

wFile = strDesktop & "\copy.txt"

MyFile.Copy (wFile)

END SUB

Re: Copy file to new Folder

rustyfishbones — Tue, 03 Jun 2014 07:32:09 GMT

Thanks Pawel,

I have tried this based on what you gave me

However I keep getting an error saying "file not found"

"Full Path" is the location and filename of the source I want to copy to my temp folder

Re: Re: Copy file to new Folder

nivellen11 — Tue, 03 Jun 2014 08:23:10 GMT

I can advice following steps:

1. Make sure file is accessible from your computer.

2. Good diagnostic practice is to display "Full Path" in some textbox to check if they are properly generated.

3. Copy final path to windows explorer address bar to see if file will open.

I write below code to check file existence:

if fso.FileExists(rFile) then

Set MyFile = fso.GetFile(rFile)
wFile = strDesktop &"\"& fName
MyFile.Copy (wFile)
call msgbox("File has been saved to your desktop.",0,"DONE")
else
call msgbox("No file to Save",0,"Error")

end if

Re: Re: Copy file to new Folder

rustyfishbones — Tue, 03 Jun 2014 08:45:03 GMT

Thanks Pawel,

I will have a look

Regards

Alan

Re: Re: Copy file to new Folder

nivellen11 — Tue, 03 Jun 2014 08:50:12 GMT

Now i see that you use only folder Path to copy your file i think you need to provide path with filename as argument to MyFile.Copy function.

Use

MyFile.Copy("C:\temp\file.jpg")

instead of

MyFile.Copy("C:\temp\")

Regards

Pawel

Re: Re: Copy file to new Folder

rustyfishbones — Tue, 03 Jun 2014 08:57:47 GMT

Hi Pawel,

I will try this too, I have checked options 1,2 and 3 of your earlier suggestion and they all work fine

1.I have accessibility

2.I added the Full Path to a Text Object and it displays

3.I added the path to Windows explorer and it opened fine

Regards

Alan

Re: Re: Copy file to new Folder

rustyfishbones — Tue, 03 Jun 2014 09:08:58 GMT

Thanks Pawel,

If I replace "Full Path" with "P:\customer code\Form.jpg" it works fine and If I add Full Path to a text object it also reads

"P:\customer code\Form.jpg" but yet it can't find it

I have a Table with 40000 files, and when I select one file only, I have a conditional show button to run the macro to copy the selected file to a new location.

I don't want to have to copy and paste the filename into the macro each time I would like to copy it, I need it to pick up the Full Path of the file I have selected

Regards

Alan