我用VB6自寫一個小程式 abc.exe。將新版程式abc.exe置網路芳鄰\IP\abc資料夾
如USER電腦端執行abc.exe 會去網路芳鄰\IP\abc資料夾\abc.exe比對程式版本日期如日期較新會自動下載替換abc.exe
PS:請問可行嗎?

謝謝 大家提供方向
目前是在原VB6內新增 FORM 內容 配合網路檔FastCopy.exe 成功自動更新

Private Const App_Name = "SYERP"
Private Const ExePath = "\IP\refresh"
Private Const MidExeName = "FastCopy"

Private Sub Form_Load()
If UCase(Trim(App.EXEName)) <> UCase(Trim(App_Name)) Then
MsgBox "必須將管理系統名稱改為: " + App_Name
End
End If
Call ExeRefresh '判
Form1.Show
Unload Me
End Sub
Private Sub ExeRefresh()
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
On Error Resume Next
s1 = "TNT"
If Len(App.Path) > 3 Then
s1 = App.Path + "" + Trim(App_Name) + ".exe"
s3 = App.Path + "" + MidExeName + ".EXE"
Else
s1 = App.Path + Trim(App_Name) + ".exe"
s3 = App.Path + MidExeName + ".EXE"
End If
s4 = "TNT"
s4 = FileDateTime(s1)
s2 = "TNT"
s2 = FileDateTime(ExePath + App_Name + ".EXE")
If s2 = "TNT" Then
MsgBox "沒有找到路徑可執行檔:" + ExePath + App_Name + ".EXE" + vbCrLf + vbCrLf + "原因1:最新EXE伺服器或工作站沒開;" + vbCrLf + "原因2:放最EXE路徑錯誤或者EXE檔不存在;" + vbCrLf + "此情況通知程式師." + vbCrLf + vbCrLf + vbCrLf + "按確定按鈕後,將繼續運行本地EXE檔.", vbCritical, "提示"
End If
If s2 = "TNT" Or s4 = "TNT" Then Exit Sub '如果 '然後再
If CDate(s2) > CDate(s4) Then '日期
FileCopy ExePath + MidExeName + ".EXE", s3
s1 = Shell(s3 + " " + ExePath + "," + App_Name + ".EXE", vbNormalFocus)
'本地
End
End If
End Sub