打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
(已经解决)敬请高手解决用vb6代码打开局域网文件夹的问题。谢谢。
我在我的系统中临时创建了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

上面文本框是局域网的共享目录地址,下面的文本框是共享目录中需要操作的文件
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
VB使用Dir判断目录是否存在 并创建新文件夹
删除N天以前修改过的文件,代码
教你快速删除电脑久存的无用文件夹 为电脑腾出空间
用VB编写记事本
Dropbox 支持局域网及同步任意文件夹 | 同步控
大疆智图 重建错误提示及操作建议
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服