|
Thanks in advance
How to copy File folder over network
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
modified on Monday, March 28, 2011 4:25 AM
|
|
|
|
|
I would recommend File.Copy()
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Thanks 
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
Thanks in advance, I am getting this error at Ftpwebresponse
The underlying connection was closed: An unexpected error occurred on a receive.
<br />
Const localFile As String = "C:\"<br />
Const remoteFile As String = "/Filder/File.ext"<br />
Const host As String = "ftp:
Const username As String = "UserName"<br />
Const password As String = "Pwd"<br />
<br />
<br />
Dim URI As String = host & remoteFile<br />
Dim ftp As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(URI), System.Net.FtpWebRequest)<br />
ftp.Credentials = New System.Net.NetworkCredential(username, password)<br />
ftp.KeepAlive = False<br />
ftp.UseBinary = True<br />
ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile<br />
<br />
Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)<br />
Using responseStream As IO.Stream = response.GetResponseStream<br />
<br />
Using fs As New IO.FileStream(localFile, IO.FileMode.Create)<br />
Dim buffer(2047) As Byte<br />
Dim read As Integer = 0<br />
Do<br />
read = responseStream.Read(buffer, 0, buffer.Length)<br />
fs.Write(buffer, 0, read)<br />
Loop Until read = 0 'see Note(1)<br />
responseStream.Close()<br />
fs.Flush()<br />
fs.Close()<br />
End Using<br />
responseStream.Close()<br />
End Using<br />
response.Close()<br />
End Using<br />
Any Suggestions ??
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
modified on Monday, March 28, 2011 4:26 AM
|
|
|
|
|
Do you want to download a file from a FTP-server, or copy a file in your LAN using the filesystem?
In the first case;
Is the remote PC an FTP server? Can you reach it with a tool like CuteFTP?
In the second case;
You'll need code to recursively copy folders and files.
I are Troll 
|
|
|
|
|
Thanks for the reply , well i was trying to download file  from a machine on the local network, Cute FTP even cannot access it. thanks i think so i got the answer , but anyhow is it possible that we user FTP on a network, what is proffered to copy files on a network , i used File Copy API at last.
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
FTP won't work unless the server you're copying from is running an FTP server.
If this is a local network, I doubt it's runnig FTP. You're more likely copying files from a shared folder on the server. To get at those, you simply have to supply the normal File copy method and supply either a mapped drive letter path to the source, or a UNC path.
|
|
|
|
|
Thanks, Solved
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
Can I Export DataGridView to PDF without using MS Office 2007?
|
|
|
|
|
|
i have problem with data1, i am trying to network a project of mine in VB6..
the scenario is this,
i have an MS Flexgrid and i want to fill it with data from a Data1. the problem is that the ms access DB is located at the Local Server from our network at office.
i was able to manage at least to connect the DB using the code below
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
---------------------------------------------------------------------------
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
'-- get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb ;Persist Security Info = False"
cn.Open
Set rs = cn.Execute("select * from dataTable")
End Sub
but i can't figure out how set the database name for data1
Data1.DatabaseName = "WHAT Should be the Path?"
Data1.RecordSource = ("select * dataTable order by Title")
how am i going to access the database and save it's content's to data1?
thanks in advance.
|
|
|
|
|
DatabaseName was the fully qualified path to your database. In your case, it's exactly the same as your Data Source value in your connection string.
\\IP Address or Computer Name\DIR\masterFile.mdb
|
|
|
|
|
got my database running over LAN. thanks for the tips...
|
|
|
|
|
hi,
i have a problem with my project. i have an existing system which is a stand alone app. using ms access 95 file format, created in VB6 using Visual Data Manager... well because it's a bit old system. but is runs quit very well.
the system owners decided to make the app. run over the network, they have a total of 10 workstations on their office. 1 is for the primary admin (Win7 OS) and 4 is for staff (Win7 OS). 5 are for users (Win XP SP2 OS). the database is located at workstation 1, the other computers wants to access the database.
here is a sample code given to me:
Option Explicit
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
as the path
but i get an error "User-Define not defined" on
Dim Conn As New ADODB.Connection
am i missing something like an add-on or reference maybe, like in C# we used to add the reference for SQL connection.
do i need to install something?
|
|
|
|
|
loid grey manuel wrote: Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
I can only hope IP Address or Computer Name isn't what you are using...
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Are you saying that you throw an exception when you try to declare Conn?
This is VB6 isn't it?
|
|
|
|
|
Shouldn't that be "\\ComputerName\SHARENAME\DIR\masterfile.mdb"?
|
|
|
|
|
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
Looks correct(if you replace with valid IP and DIR) but the error "User-Define not defined" tells that you didn't add the reference to your project.
To add the reference: click Project menu and Click References.
Now tick the checkbox 'Microsoft ActiveX Data Objects 2.x Library'.
|
|
|
|
|
thanks. i was able to open the database, but i cant seem to transfer the data to my record set
Dim cn As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
'Dim strsql As String
'get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "ucuMasterFile.mdb ;Persist Security Info = False"
cn.Open
I get error on this line
MsgBox (myRecordSet.Fields("AdminId"))
the error is
runtym err '91'
object variable or with block variable not set
modified on Friday, March 25, 2011 6:15 AM
|
|
|
|
|
Can you show us the line where you assign a value to the MyRecordSet object? Have you verified that AdminId is not null for that particular record?
I are Troll 
|
|
|
|
|
after a long search i was able obtain the data needed for login. using the code below
Dim cn As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
Dim strsql As String
'get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\IP Address or PC name\ucu\ucuMasterFile.mdb ;Persist Security Info = False"
cn.Open
Set myRecordSet = cn.Execute("Select * from tblAdmin")
i was able show the AdminId and PW using a MsgBox..
but when i try to login, somehow it does not allow me to continue. maybe with the verification?
here is the code for login:
Private Sub mnuLogin_Click()
If myRecordSet.BOF = True And myRecordSet.EOF = True Then
Exit Sub
End If
myRecordSet.MoveFirst
Do
If myRecordSet.Fields("AdminId") = txtid.Text And myRecordSet.Fields("AdminPw") = txtpw.Text Then
Unload Me
Unload frmTest
ucuLibMain.Show
Exit Sub
Else
lblerror.Caption = "Unable to Login: Invalid Username and/or Password"
End If
myRecordSet.MoveNext
Loop Until myRecordSet.EOF
End Sub
i get an error
runtym err '91'
object variable or with block variable not set
on the first line
If myRecordSet.BOF = True And myRecordSet.EOF = True Then so i can't continue..
need help. thanks again for quick replies..
modified on Friday, March 25, 2011 10:14 AM
|
|
|
|
|
Does the error occur on remote(Client) PC or your own PC(vb6 installed)? If its client PC, then you have to uose 'Package & Deployment Wizard' to redistribute on client PC. Be sure you add Ms Data access components. W7 is not a good place to run vb6 app.
|
|
|
|
|
maybe because i'm using a Win7 OS. but i am using VM ware to program in vb6. would it somehow affect the networking part?
|
|
|
|
|
If Set myRecordSet = cn.Execute("Select * from tblAdmin") works then all the query will work fine(if your schema allows). We need details about you problem.
Finally i would like to say that you leave vb6 and download VS2010 form Microsoft[^] and you will see you were coding in dark age while using vb6. If you still want vb6 you are wasting your time and life.
|
|
|
|
|
well, unfortunately for me... but, some clients still uses legacy apps. especially vb apps. so what can i complain about? This is what they require.. i have given them option to upgrade, well, they will have to think about it...
but anyways, thanks for the the sample code.., i got the project running over the LAN, but for XP only.. i advised the owner of the system not to transfer the system to win7 OS.. or compatibility issues may arise..
[RESOLVED]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
