.net获取共享盘文件拷贝到本地

先在C盘目录下新建一个文件夹，我命名为“共享文件夹”，然后将你需要共享的文件放在在这个文件夹的目录之下。

2、右击共享文件夹，找到属性选项，点击“属性”。

3、进入到共享文件夹属性界面后，找到“共享”菜单项，单击。

4、在”共享“菜单界面中，点击“高级共享”按钮。

5、进入”高级共享“界面后，勾选第一行的“共享此文件夹”，共享名自理或者就采用默认的共享文件名，点击”确定“，完成文件夹的共享。

6、在局域网的另一台电脑，用”WIN键+R“打开运行。

7、输入共享文件夹电脑的IP地址，格式为"\\192.168.XXX,XXX"，点击”确定“。

8、接下里d出一个界面，显示的是局域网内指定IP地址所共享的文件，打开”共享文件夹“将需要的文件复制在自己电脑就行。

imports System.IO

读取指定文件

'

'读取指定文本文件

Public Function readtext(ByVal path As String)

If path = "" Then

readtext = " *** 作失败！"

Exit Function

End If

Try

If File.Exists(path) = True Then

Dim fs As New FileStream(path, FileMode.Open)

Dim sr As New StreamReader(fs)

Dim str As String

str = sr.ReadToEnd.ToString

sr.Close()

fs.Close()

readtext = str

Else

readtext = " *** 作失败！"

End If

Catch ex As Exception

readtext = " *** 作失败！"

End Try

End Function

'向指定文件写入数据

Public Function writetext(ByVal path As String, ByVal opi As Integer, ByVal msg As String)

If path = "" Then

writetext = " *** 作失败！"

Exit Function

End If

Dim op As FileMode

Select Case opi

Case 1

op = FileMode.Append

Case 2

op = FileMode.Create

Case Else

op = FileMode.Create

End Select

Try

If File.Exists(path) = True Then

Dim fs As New FileStream(path, op)

Dim sr As New StreamWriter(fs)

sr.WriteLine(msg)

sr.Close()

fs.Close()

writetext = " *** 作完成！"

Else

writetext = " *** 作失败！"

End If

Catch ex As Exception

writetext = " *** 作失败！"

End Try

End Function

参考这个吧

'

'vb.net源代码来自www.c-pet.com

'

---