1

質問があります（明らかに笑）...

以下のこのコードは、stackoverflow.com およびさまざまなサイトの助けを借りて、最終的に機能します...

私が今したいのは、1つのファイルが更新されたり上書きされたりしないようにすることだけですか?

どうすればこれを達成できますか?

ソース ファイルにはさまざまなファイルがあり、この中に "sample.ini" があり、ユーザー ID とパスワードのセクションです。

私が作成した HTA ファイルの [更新] ボタンをクリックしたときに、そのファイルを PC で更新したくない場合は、すべて上書きしても問題ありませんか?

また...改善できる点があれば教えてください...

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 & "\" & objFSO.GetFileName(x)) Then

 objFSO.GetFile(x).Copy (FinalLoc & "\" & 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 & "\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 & "\System32\shell32.dll,43"
   lnk.Save

   Set lnk = objShell.CreateShortcut(strDesktop & "\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 & "\System32\shell32.dll,40"
   lnk.Save

' -------------------------------------------------------------

' -------------------------------------------------------------

MsgBox ("Installed Updates"), vbSystemModal

' -------------------------------------------------------------
4

1 に答える 1

1

あなたの問題を理解しているかどうかはわかりませんが、FinalLoc で sample.ini を上書きしたくない場合は、次のようなものを追加する必要があると思います:

If objFSO.GetFileName(x) <> "sample.ini" Then
    objFSO.GetFile(x).Copy (FinalLoc & "\" & objFSO.GetFileName(x)), True
于 2012-10-25T22:58:57.957 に答える