Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[KingSparta]

The Download Dialog Comes Up
Downloads The File, But The File Is Never Saved To The Drive In The Path File Name Given.

there is also a place in the dialog that is blank "Package" is there a way to fill that blank like

Package: "U.S.A. Top 40 Database"?


Is It Me Or MJ?


Dim MyError

'Dim INIDIR As String
'    INIDIR = App.Path

       Dim MJIA As MediaJukebox.MJInternetAutomation
       Set MJIA = g_MJ.GetInternet
       
MJIA.DownloadMode = DOWNLOAD_MODE_DEFAULT
MyError = MJIA.DownloadToFile("http://home.nc.rr.com/mycddblookup/images/USATop40.csv", "C:\USATop40.csv")
' Hold This For Now MyError = MJIA.DownloadToFile("http://home.nc.rr.com/mycddblookup/images/USATop40.csv", INIDIR & "\USATop40.csv")

If MyError = 0 Then
   MsgBox ("The Database Downloaded Ok...")
Else
   MsgBox ("There Was An Error Downloading The Database...")
End If

[KingSparta]

Internet Downloads is not working for me

Any comments?

Is my code screwed up?

Is MJ screwed up?

If you were a Space Man on a distant planet what way does the earth rotate, clockwise or counter clockwise?

[Cephlen]

If you were a Space Man on a distant planet what way does the earth rotate, clockwise or counter clockwise?

Neither, it would rotate from the bottom to the top.



Code looks ok to me.. if I get some time, I will try it out.

[KingSparta]

Anyone?

[Cephlen]

DownloadToFile doesnt seem to work here either.

Try this instead:

TempFile = MJIA.DownloadToTempFile("http://home.nc.rr.com/mycddblookup/images/USATop40.csv")

FileCopy TempFile, "C:\USATop40.csv"


Worked a-ok here!

[KingSparta]

Good Deal

if you would have given me another month i might have figured that work around out.



Thanks again

[KingSparta]

And It Works!!!!

Dim TempFile

Dim MJIA As MediaJukebox.MJInternetAutomation
Set MJIA = g_MJ.GetInternet
       
MJIA.DownloadMode = DOWNLOAD_MODE_DEFAULT

DataBaseLoaded(4) = "No"

If Combo2 = "Billboard Top 100" Then
   CHARTFILE = "Top 100 Billboard.csv"
End If
   
TempFile = MJIA.DownloadToTempFile("http://home.nc.rr.com/mycddblookup/images/" & CHARTFILE)

If TempFile <> "" Then
   FileCopy TempFile, INIDIR & "\" & CHARTFILE
   MsgBox (CHARTFILE & " Database Downloaded...")
Else
   MsgBox ("There Was An Error Downloading The " & CHARTFILE & " Database...")
End If