Click here to Skip to main content
15,034,644 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
My supplied code is that to copy/read the txt file from server m/c to client m/c through connecting lan Network. But arrise error message i.e.(The network path was not found.) how can i solve this problem. Please give me to supply currect response as early as possible.My code is given below...

VB
Imports System
Imports System.Runtime.InteropServices
Imports System.Security.Principal
Imports System.Security.Permissions
Public Class Form1
    <dllimport("advapi32.dll",> _
    Public Shared Function LogonUser(ByVal lpszUsername As String, ByVal lpszDomain As String, _
        ByVal lpszPassword As String, ByVal dwLogonType As Integer, ByVal dwLogonProvider As Integer, _
        ByRef phToken As IntPtr) As Integer
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim admin_token As IntPtr
        Dim wid_current As WindowsIdentity = WindowsIdentity.GetCurrent()
        Dim wid_admin As WindowsIdentity = Nothing
        Dim wic As WindowsImpersonationContext = Nothing
        Try
            MessageBox.Show("Copying file...")
            ' ''If LogonUser("Local Admin name", "Local computer name", "pwd", 9, 0, admin_token) <> 0 Then
            If LogonUser("SNEHASIS\Administrator", "SNEHASIS", "", 9, 0, admin_token) <> 0 Then
                wid_admin = New WindowsIdentity(admin_token)
                wic = wid_admin.Impersonate()
                System.IO.File.Copy("C:\file.txt", "\\192.168.1.10\c\right.txt", True) ''157.60.113.28
                MessageBox.Show("Copy succeeded")
            Else
                MessageBox.Show("Copy Failed")
            End If
        Catch se As System.Exception
            Dim ret As Integer = Marshal.GetLastWin32Error()
            MessageBox.Show(ret.ToString(), "Error code: " + ret.ToString())
            MessageBox.Show(se.Message)
        Finally
            If wic IsNot Nothing Then
                wic.Undo()
            End If
        End Try
    End Sub
End Class


I waiting for response because it is very important for me.
Posted
Updated 3-Mar-21 21:12pm
v2
Comments
koolprasadd 21-Sep-11 8:30am
   
Make sure "\\192.168.1.10\c\" path is exist ?
start-->Run--> paste the path and hit enter. error suggest that there is error in path

1 solution

Unless you gave your share a specific name, this is what you should use:

\\192.168.1.10\c$\right.txt

You forgot the $ after the drive letter.
   
Comments
koolprasadd 21-Sep-11 8:39am
   
yes, it misses '$' after 'C', 5!

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900