Option Explicit
 
Dim fso, fl, ret, WshShell, new_folder, old_folder, File, uninstall_text 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject( "Wscript.Shell")
 
If not fso.FolderExists("c:\vre") then 
 fso.CreateFolder("c:\vre")
end if  
 
If not fso.FolderExists("c:\vre1") then 
 fso.CreateFolder("c:\vre1")
end if
 
Set old_folder= fso.GetFolder("c:\vre")
Set new_folder= fso.GetFolder("c:\vre1")
 
 
'Создаем uninstall.vbs в папке old_folder
' FSO.CreateFolder install_dir
Set File = FSO.OpenTextFile(old_folder + "\uninstall.vbs", 2, True)
uninstall_text = "Set WshShell = CreateObject(""WScript.Shell"")" & vbNewLine & _ 
"Set FSO = CreateObject(""Scripting.FileSystemObject"")" & vbNewLine & _ 
"FSO.DeleteFolder """ & new_folder & """, True" & vbNewLine & _ 
"WshShell.RegDelete ""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\"""
File.Write uninstall_text
File.Close
 
 
              
    For Each fl In fso.GetFolder(old_folder.Path).Files     
            ret = ret & "В каталог " & Chr(34) & old_folder.Path & Chr(34) & " пришел файл " & Chr(34) & fl.Name & Chr(34) & vbCrLf
                If ret <> vbNullString Then MsgBox ret 
                      
         
            ' копируем файл в новую папку
        fso.CopyFile old_folder.Path&"\"& fl.Name, new_folder.Path &"\"& fl.Name, true
 
                WScript.Echo "Процесс копирования завершен"
                        
            ' запись в реестр
                ' WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\!1\DisplayName", new_folder.Path &"\"& fl.Name 
 
                  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\DisplayName", "Моя Супер Прога"
                  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\UninstallString", """" & new_folder & "\uninstall.vbs"""
 
        WScript.Echo "Запись в реестре сделана" 
Next