分享

(已经解决)敬请高手解决用vb6代码打开局域网文件夹的问题。谢谢。

 Excel实用知识 2021-05-24
我在我的系统中临时创建了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

上面文本框是局域网的共享目录地址,下面的文本框是共享目录中需要操作的文件

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多