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.
Â
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
