Markus,
Once again thanks as you helped greatly on this project of mine. The
Auto-Updater is now completed.
Now on to getting the data loaded onto the Database.
Jonathon
----- Original Message -----
From: "Markus Minihold" <[EMAIL PROTECTED]>
To: "REALbasic NUG" <[email protected]>
Sent: Wednesday, October 11, 2006 1:37 PM
Subject: Re: Renaming a Filename?
Hi Jonathon,
here is the file renaming plus download sequence which I placed into the
action method of a push button:
Dim http As New HTTPSocket
Dim fi, fo As FolderItem
Dim result As Boolean
fo = GetFolderItem("").Child("MedDirectoryDB.old")
If fo.Exists Then
fo.Delete()
End If
fi = GetFolderItem("").Child("MedDirectoryDB.rdb")
If fi.Exists Then
fo = GetFolderItem("").Child("MedDirectoryDB.old")
fi.MoveFileTo(fo)
End If
result = http.Get ("http://www.onclicksoftware.com/updates/
MedDirectory2007_UPD.txt", fi, 60)
If result = True Then
MsgBox ("File " + fi.DisplayName + " has been downloaded
sucessfully")
Else
MsgBox ("Download failed, Error:" + str(http.LastErrorCode))
End If
Markus
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.2/471 - Release Date: 10/10/2006
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.408 / Virus Database: 268.13.2/471 - Release Date: 10/10/2006
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
