我在我的系统中临时创建了IP地址为192.168.0.1的局域网的本地地址,使用fso对象访问,发现fso对象没有目录操作属性(就是说fso对象不能打开目录),只能判断目录是否存在。 因此我想是否可以使用CommonDialog1文件操作对话框来操作局域网的共享文件夹,在C盘创建了一个Anonymous目录,并且共享名也是Anonymous,在共享目录中创建了几个文件,其中aaa.txt是其中的一个。 下面的代码是在VB中调试的代码,由于我没有局域网,仅仅将本机的IP地址修改,因此在局域网中是否可以,没有调试,代码也只能给你提供参考: 程序代码: Dim fso As Object, JYWML As String Set fso = CreateObject('Scripting.FileSystemObject') JYWML = '\\192.168.0.1\Anonymous' On Error GoTo ABC Text2.Text = JYWML CommonDialog1.InitDir = JYWML CommonDialog1.Filter = '全部文件(.*)|*.*' CommonDialog1.CancelError = True CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName Exit Sub ABC: If Err.Number = 32755 Then MsgBox '你点击了取消按钮!' Exit Sub Else MsgBox Err.Number Exit Sub End If |
|
来自: Excel实用知识 > 《VBA与EXCEL》