Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2766|回复: 3

[已解决]骗历局域网共享文件夹下面文件问题。

[复制链接]
发表于 2013-11-23 14:29 | 显示全部楼层 |阅读模式
本帖最后由 suxiong 于 2013-11-23 17:51 编辑
  1. Private Sub CommandButton1_Click()
  2.    Dim Filename As String, mypath As String, k As Integer
  3.         mypath = "\\192.168.0.100\TEST\A\宏站\HZ0001"
  4.         Filename = Dir(mypath & "*.jpg")    'DIR可以显示相应文件夹下面文件的名字
  5.         Do
  6.             ListBox1.AddItem Filename
  7.             Filename = Dir    '在再=一次是因为不段的把文件放进行(不懂)
  8.         Loop Until Filename = ""

  9. End Sub
复制代码
上面这个IP192.168.0.100就是本机IP,这里是可以列出来JPG文件的,但我现在想的是把局域网共享文件下面的JPG文件列出来,把IP改了后。就不行了。显示“文件名,文件号出错”(但名字与路径是没有错的)。找局域网共享下文件,用这种方法不行吗? 新建 Microsoft Excel 工作表.zip (9.93 KB, 下载次数: 5)
发表于 2013-11-23 16:30 | 显示全部楼层    本楼为最佳答案   
mypath = "\\192.168.0.100\"这样试过没,把里面的IP换成其他的IP,不过这个要求人家电脑也有共享,并且能正常访问才成呀。

回复

使用道具 举报

 楼主| 发表于 2013-11-23 16:37 | 显示全部楼层
hwc2ycy 发表于 2013-11-23 16:30
mypath = "\\192.168.0.100\"这样试过没,把里面的IP换成其他的IP,不过这个要求人家电脑也有共享,并且能正 ...

可以了。好像是共享设置问题。谢谢!
回复

使用道具 举报

发表于 2016-12-29 16:03 | 显示全部楼层
这个是能在共享上建立文件夹目录的吗
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:38 , Processed in 0.274380 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表