Sub CopyAndRunSQL()
Dim sourceFolder As String
Dim destinationFolder As String
Dim exeFileName As String
' コピー元のフォルダーとファイル名を指定します
sourceFolder = "C:\path\to\source\folder\" ' ここにSQL.exeの存在するフォルダーのパスを指定してください
exeFileName = "SQL.exe" ' SQL.exeのファイル名を指定してください
' コピー先のフォルダーを指定します
destinationFolder = "C:\path\to\A\folder\" ' ここにAフォルダーのパスを指定してください
' ファイルのコピーを実行します
Dim fileExists As Boolean
fileExists = Dir(sourceFolder & exeFileName) <> ""
If fileExists Then
' ファイルが存在する場合、コピーします
FileCopy sourceFolder & exeFileName, destinationFolder & exeFileName
MsgBox "SQL.exeをコピーしました。"
' コピーしたexeを実行します
Shell destinationFolder & exeFileName, vbNormalFocus
Else
MsgBox "指定したファイルが見つかりませんでした。"
End If
End Sub
