rem === оепелеммше ===
Dim vToday, targetPath, targetFolder, targetScriptFolder, sourceFolder
Dim oFSO
Dim arrFolders

rem === назейрш ===
set Qv = CreateObject("QlikTech.QlikView")
set shell = createobject("wscript.shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

rem === гюдюел оепелеммше ===
arrFolders = Array("AppManual","Apps1","Apps2","Apps3")
vToday = Date
targetPath = "\\QlikServer\c$\Qlik\Backup\Apps_" & vToday

rem === янгдюел дхпейрнпхч Path===
	If Not oFSO.FolderExists(targetPath) Then
	  oFSO.CreateFolder targetPath
	End If
	
For Each elementFolder In arrFolders
	
	rem === нопедекъел дхпейрнпхх ===
	targetFolder = targetPath & "\" & elementFolder
	sourceFolder = "C:\Qlik\Apps\" & elementFolder & "\"
	targetScriptFolder = targetFolder & "\Scripts\"
	
	
	rem === янгдюел дхпейрнпхч AppTier ===
	If Not oFSO.FolderExists(targetFolder) Then
	  oFSO.CreateFolder targetFolder
	End If
	
	rem === янгдюел дхпейрнпхч Scripts ===
	If Not oFSO.FolderExists(targetScriptFolder) Then
		oFSO.CreateFolder targetScriptFolder
	End If
	
	rem === б жхйке нропюбкъел опхкнфемхъ аег дюммшу мю 2 яепбеп б мнбсч оюойс ===
	For Each oFile In oFSO.GetFolder(sourceFolder).Files
	  If UCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

		success = shell.appactivate("Qlikview - [Start Page]")
		Set docObj = Qv.OpenDoc(oFile,3,false)
		docObj.ClearAll
		docObj.RemoveAllData
		docObj.SaveAs targetFolder & "\" & oFile.Name
		
		rem === охьел SCRIPT тюик QVS ===
		Set fs = CreateObject("Scripting.FileSystemObject")
		Set qvsFile = fs.CreateTextFile(targetScriptFolder & oFSO.GetBaseName(oFile.Name) & ".qvs", 2, True)
		qvsFile.Write(docObj.GetProperties.Script)
		qvsFile.Close

		docObj.CloseDoc
		
		rem === ножхъ дкъ реярхпнбюмхъ - ОН НДМНЛС qvw Б ЙЮФДНИ ДХПЕЙРНПХХ ===
		rem Exit For

	  End if
	Next
	
Next

Qv.Quit