Sub CheckUpdateDownload
On Error Resume Next
strLink =(((( "You do not have permission to view the full content of this post.Log in or register now."))))
''strSaveName = Mid(strLink, InStrRev(strLink,"/") + 1, Len(strLink))
strSaveName = "newUpdateVersion.txt"
strSaveTo = currentFolder &"\" &strSaveName
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strSaveTo) Then
objFSO.DeleteFile(strSaveTo)
End If
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
yan yung nakita kong nag automatic send yung mac sa storage.live.com kung sino man yang may are nyan
Since 2 years have passed since the last reply in this thread, I am locking it to prevent necroposting. Feel free to start a new thread or contact any forum staff if you want this to be reopened.