vbscript - フォルダーが存在するかどうかを確認し、vbscript で名前を変更します

Question

さて、ここで私がやりたいことです。私のスクリプトはフォルダーをコンピューターの appdata フォルダーにもコピーしますが、ここで必要なことは次のとおりです。その名前のフォルダーが既に存在するかどうかを確認する必要があり、その名前を別の名前に変更する必要がある場合は、フォルダーが存在するかどうかを確認するために変更する必要がある現在のスクリプトをここにコピーします。事前にサンクス

Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")


Set oShell = CreateObject("WScript.Shell")
Set ofso = CreateObject("Scripting.FileSystemObject")
oShell.CurrentDirectory = oFSO.GetParentFolderName(Wscript.ScriptFullName)

DestinationFolder = strHomeFolder & "\vlc"
SourceFolder = oShell.CurrentDirectory & "\vlc"

dim filesys 
set filesys=CreateObject("Scripting.FileSystemObject") 
If filesys.FolderExists(SourceFolder ) Then 
filesys.CopyFolder SourceFolder , DestinationFolder 
End If