title: VBScript FileCopy but dont overwrite 1 file
body: <p>I have a question (obviously hahah)...</p>
  
  <p>This code below finally works for me with the help from stackoverflow.com and various sites...</p>
  
  <p>all I want to do now is to make sure one file doesn't get updated\overwritten ?</p>
  
  <p>How do I achieve this ?</p>
  
  <p>In the source files I have vairous files and "sample.ini" within this is a userid and password section.</p>
  
  <p>when people click my "update Button" in the HTA file I created, I dont want to update that file on their PC's everything is fine to overwrite ?</p>
  
  <p>also...if you see something I could improve please tell me...</p>
  
  <hr>
  
  <hr>
  
  <pre><code>Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  ' -------------------------------------------------------------
  
     If Not objFSO.FolderExists("H:\Pavles Program") Then
  Set FinalLoc = objFSO.CreateFolder("H:\Pavles Program")
     End If
  
  ' -------------------------------------------------------------
  
   SourceServer = "\\VBScript_Source\"
    FinalLoc = "H:\Pavles Program\"
  
  
  For Each x In objFSO.GetFolder(SourceServer).Files
  
     If Not objFSO.FileExists(FinalLoc &amp; "\" &amp; objFSO.GetFileName(x)) Then
  
   objFSO.GetFile(x).Copy (FinalLoc &amp; "\" &amp; objFSO.GetFileName(x)), True
  
  Wscript.Echo "Files Copied"
  
  Else
  
  Wscript.Echo "Files Exist"
  
  End If
  
  Next
  
  
     set WshShell = WScript.CreateObject("WScript.Shell")
        strDesktop = WshShell.SpecialFolders("Desktop")
  
  
     Set objShell = WScript.CreateObject("WScript.Shell")
     Set lnk = objShell.CreateShortcut(strDesktop &amp; "\Pavs Shortcuts.lnk")
  
     lnk.TargetPath = "H:\Pavles Program\NewMenu.hta"
     lnk.Arguments = ""
     lnk.Description = "Created Shortcut with VBScript By Pavle"
     lnk.HotKey = "CTRL+SHIFT+F"
     lnk.WindowStyle = "1"
     lnk.WorkingDirectory = "H:\Pavles Program\"
     lnk.IconLocation = Windir &amp; "\System32\shell32.dll,43"
     lnk.Save
  
     Set lnk = objShell.CreateShortcut(strDesktop &amp; "\READ ME.lnk")
  
     lnk.TargetPath = "H:\Pavles Program\Read Me.txt"
     lnk.Arguments = ""
     lnk.Description = "Created Shortcut with VBScript By Pavle"
     lnk.WindowStyle = "1"
     lnk.WorkingDirectory = "H:\Pavles Program\"
     lnk.IconLocation = Windir &amp; "\System32\shell32.dll,40"
     lnk.Save
  
  ' -------------------------------------------------------------
  
  ' -------------------------------------------------------------
  
  MsgBox ("Installed Updates"), vbSystemModal
  
  ' -------------------------------------------------------------
  </code></pre>