Synchronize software on the company's computer. vbs

05 ~ Put up what I wrote in and make a backup. Now let's take a look at the code that I wrote at that time, which is still very standard.

Now, I will definitely write it in Javascript or Python.

Option explicit 'delimiter' Description: used to synchronize the directories and files in the two directories 'using 'const strfoldera = "G: \ downloads \ soft" 'const strfolderb = "K: \ soft "const strfolderb =" G: \ downloads \ soft "const strfoldera =" K: \ soft "dim fsoobjset fsoobj = Createobject (" scripting. fileSystemObject ") if not fsoobj. folderexists (strfoldera) Then MS Gbox ("Source directory" & strfoldera & "does not exist! ") Elseif not fsoobj. folderexists (strfolderb) Then fsoobj. createfolder (strfolderb) synchronize strfoldera, strfolderbend ifset fsoobj = nothingmsgbox (" congratulations, synchronization successful! ") 'Taobao' Description: Synchronize two folders. 'parameter: 'sfoldera directory name 'sfolderb directory name' returned: none of the 'Operation sub synchronize (sfoldera, sfolderb) dim fsofoldera, fsofolderbdim folder, extends itmfoldera, itmfolderbdim fsofilea, fsofilebdim itmfilea, itmfilebdim blnfileinfolderbdim blnfolderinfolderbset fsofoldera = fsoobj. getfolder (sfoldera) set fsofolderb = fsoobj. getfolder (sfolderb) set fsofilea = fsofoldera. filesset fsofileb = fsofolderb. filesfor each itmfilea in fsofileablnfileinfolderb = falsefor each itmfileb in fsofilebif itmfilea. name = itmfileb. name and _ itmfilea. size = itmfileb. size and _ itmfilea. datelastmodified = itmfileb. datelastmodified then blnfileinfolderb = true exit forend ifnextif not blnfileinfolderb thenitmfilea. copy fsofolderb. path & "\" & itmfilea. name, trueend ifnextset fsofilea = nothingset fsofileb = nothingset fsosubfoldera = fsofoldera. subfoldersset fsosubfolderb = fsofolderb. subfoldersfor each itmfoldera in fsosubfolderablnfolderinfolderb = falsefor each itmfolderb in fsosubfolderbif itmfoldera. name = itmfolderb. name thenblnfolderinfolderb = trueexit forend ifnextif not blnfolderinfolderb thenfsoobj. createfolder (fsofolderb. path & "\" & itmfoldera. name) end ifsynchronize itmfoldera. path, replace (itmfoldera. path, strfoldera, strfolderb) nextset fsosubfoldera = nothingset fsosubfolderb = nothingset fsofoldera = nothingset fsofolderb = nothingend sub