bultiko

Please HELP....im new to VB...i use vb6 and i need a sample how
to upload file frew Internet explorer to FTP (NOT winnet,winsok,shell....)


Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

ClipboardCopyFiles "C:\text.txt" ' need to copy text file and sent it to ftp
IE.Navigate2 "ftp://loginassw@ftp.my.com"
ClipboardPasteFiles("/text.txt") 'i need simles way to upload file frew Internet explorer to FTP (NOT winnet,winsok,shell....)
i didnt think its simple question...i was googling.Reading forums..and still no answer..!!!
My mission is:
to upload file.txt via http (using Internet Explorer or WebBrowser components. NOT frew winet,winsock,shell and others ways...I need this very much)

we can send direct commands somehow to ftp "PUT,GET,DIR" or data stream..or....(i mean by WebBrowser1.execWB...or.IE somehow...????)
Main idea is to upload file to ftp using ONLY InternetExplorer or WebBrowser1

JPB

If you use the WebBrowser control, you should be able to navigate to an FTP server as follows:

Then, you should wait until you are connected to the FTP server before doing anything. You can define a module level variable (i.e. Private mblnBrowserReady As Boolean), then set it to TRUE when connected:

Finally, you can add a CommandButton and let the user upload files via the clipboard as follows:

I assume that the ClipboardCopyFiles procedure you mention works properly in order for the above code to work.

bultiko

How to make it auto copy?

if i write
Private Sub Form_Load()
ClipboardCopyFiles "C:\text.txt" ' Copy the files to the clipboard

Me.WebBrowser1.SetFocus ' The WebBrowser control must be visible
SendKeys "^v" ' Send a Ctrl+V (Paste) operation to the WebBrowser
End Sub


show error on WebBrowser1.seFocus
Run time error '5'
invalid procedure or call argument

I tryed to use:
sleep,loop webbrowser1.result and so on......
tryed to call AssureWebBrowser.....
NOTHING helped.............
Private Sub AssureWebBrowser()

While WebBrowser1.Busy
WaitMS 575
Wend
While Not ActiveControl Is WebBrowser1
WebBrowser1.SetFocus
WaitMS (550)
Wend
End Sub

JPB

As mentioned in the .SetFocus line comments, the WebBrowser control MUST be visible on-screen or you will get this error. That means the Visible property of the WebBrowser control must be True, and you can't call the SetFocus method in the Form_Load event.

bultiko

maybe where is another way ?

JPB

You could move the WebBrowser control off the visible area of the form, i.e.

But you will still have to have a visible form for this to work (i.e. Put the code to Paste the files to the WebBrowser control in a CommandButton Click event, or other event that occurs when a form is visible on screen. NOT the Form_Load event).

bultiko

Its works,THANK YOU !!!!