VB6 codes for spreading data on office network

Asked By mart cullen 10 points N/A Posted on - 01/30/2013

Hi everybody

I want to spread my data through my office network. I want to do this without specifying any location. And it should detect all possible computers in my network. I know vb6 can do that but i need to know the code. Can anyone help me by providing spread network vb6 code. By which i can spread my data all over my network. If anyone can I would be grateful.

• Status: Open
• Question Views: 805
• Answer Count: 2
• Vote Up 0 Vote Down

• Answer Accepted: Yes
• Question Category: File Servers

Best Answer by Alice R Jones

Go To Solution

Answered By Laz Zebbena 0 points N/A #159245

VB6 codes for spreading data on office network

 

Hi,

As far as I know, it is required to specify the location. This code works well if you have specified the location 

Dim cnn As New ADODB.Connection 

Dim Str As String 

 Set cnn = New ADODB.Connection 

Str = "\Computernamefoldernamedatabase 

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Str + ";Persist Security Info=False" 

cnn.CursorLocation = adUseClient

 

Regards,

Laz Zebbena

About Laz Zebbena

Questions
2

Answers
101

Best Answers
14

• Vote Up 0 Vote Down

• Posted on - 02/07/2013
• Question Category: File Servers

Best Answer

Best Answer

Answered By Alice R Jones 0 points N/A #159246

VB6 codes for spreading data on office network

If you want to copy a file/folders to all the share location on your network the following code should work:-

 

Sub fsoCopyFile(byval strSource as string,byval StrDest As string)

dim fso as new Scripting.FilesystemObject

Fso.copyFile StrSource,StrDest

end sub

 

' To call This Procedure
' fsocopyFile("D:abc.txt","\servernameSharenameabc.txt")

 

If in case the destination folder is passwords protected then refer the below

Within Visual basic goto Projects ->references and Include
Windows Script host Object model.

And paste the following code ( I have written this in Command1_Click event…

Private Sub Command1_Click()
Dim snet As WshNetwork
Dim strRemotePath As String
Dim strDrive As String

strRemotePath = "\ServerNameShareName"
strDrive "P:"

Set snet = CreateObject("Wscript.WshNetwork")
Call snet.MapNetworkDrive(strDrive, strRemotePath, , "USERNAME", "PASSWORD")
' Do your Copy file Stuff here

'End copy file routine
Call snet.RemoveNetworkDrive(strDrive)
End Sub

Hope this Helps!

Regards,

Alice

About Alice R Jones

Questions
8

Answers
99

Best Answers
7

• Vote Up 0 Vote Down

• Posted on - 03/19/2013
• Question Category: File Servers