Copy .xls betwen local disk and https:// location
 

I'm trying to find a way to copy files back and forth between my local disk
and a https:// network location that requires ID an password. After some
research through this forum I was able to find some pieces of code that
allowed me to save a file to the network via "Save As". The problem is that
I'd like to keep the same time stamp between the local file and its copy in
the network... I've tried FileCopy, Copyfile, etc... nothing seems to work
when I try to copy the file instead of doing "Save As". Any suggestions? Beow
you'll find the code I have so far:

Sub test2()

Dim source As String
Dim destination As String

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = False
.Navigate "https://myprotectedsite.com/"
Do Until .ReadyState = 4
DoEvents
Loop
Set ipf = .Document.all.Item("_ctl1:email")
If ipf Is Nothing Then GoTo skiplogin:
ipf.Value = "
Set ipf = .Document.all.Item("_ctl1:password")
ipf.Value = "mypwd"
Set ipf = .Document.all.Item("_ctl1:SigninBtn")
Do Until .ReadyState = 4
DoEvents
Loop
ipf.Click
Do Until .ReadyState = 4
DoEvents
Loop
End With
skiplogin:
source = "C:\Mylocalfolder\test.xls"
destination = "https://myprotectedsite.com/test.xls"

FileCopy source, destination ' - Run time error 52 - Bad file name or
number

ie.Quit

End Sub

Copy .xls betwen local disk and https:// location
 

Hi,
I don't think you can do a copy or filecopy to a http server. FTP maybe.
Windows does have a "web folders" add-on. I think it was an Office add-on.
You would need to be accessing the web server as a remote drive.

John


"avardaneg" wrote in message
...
I'm trying to find a way to copy files back and forth between my local
disk
and a https:// network location that requires ID an password. After some
research through this forum I was able to find some pieces of code that
allowed me to save a file to the network via "Save As". The problem is
that
I'd like to keep the same time stamp between the local file and its copy
in
the network... I've tried FileCopy, Copyfile, etc... nothing seems to work
when I try to copy the file instead of doing "Save As". Any suggestions?
Beow
you'll find the code I have so far:

Sub test2()

Dim source As String
Dim destination As String

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = False
.Navigate "https://myprotectedsite.com/"
Do Until .ReadyState = 4
DoEvents
Loop
Set ipf = .Document.all.Item("_ctl1:email")
If ipf Is Nothing Then GoTo skiplogin:
ipf.Value = "
Set ipf = .Document.all.Item("_ctl1:password")
ipf.Value = "mypwd"
Set ipf = .Document.all.Item("_ctl1:SigninBtn")
Do Until .ReadyState = 4
DoEvents
Loop
ipf.Click
Do Until .ReadyState = 4
DoEvents
Loop
End With
skiplogin:
source = "C:\Mylocalfolder\test.xls"
destination = "https://myprotectedsite.com/test.xls"

FileCopy source, destination ' - Run time error 52 - Bad file name
or
number

ie.Quit

End Sub