수다닷컴

Option ExplicitPrivate Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000Private Function DownloadFileFromWeb(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFileFromWeb = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Private Sub Command1_Click()
DownloadFileFromWeb http://p.dothome.co.kr/ㅐ.exe, C:\ ㅐ.exe
MsgBox 다운로드가 완료되었습니다
MsgBox 프로그램을 재실행 합니다
Unload Me
Shell C:\ ㅐ.exe

End Sub재실행까지는 했는데 처음에 틀엇던 프로그램을 삭제하고싶은데 .서버에 있는 ok.exe 와c드라이브에있는 ok.exec드라이브에있는 ok.exe를 자동업데이트 시키면서버에있는 최신 ok.exe를 다운받아지는데 여기서 다운받아지면서 월래 있던 파일을 삭제하거나붙여넣기식으로 하고싶습니다.ㅠㅠ

신청하기