suifengo00 · 发表于 2010-5-7 14:14

原帖由 yancjm 于 2010-5-6 14:50 发表
我在網上鄰居目錄中使用是正常的

循环效果下图

问题出在以下这过程，为什么会取到这样的地址："\\10.92.5.211\??c\a\a1"，正常应该是\\10.92.5.211\标准文档\a\a1，是不是不认中文，但第一级可以认出来，不知道为什么，还请指教一下。

Sub getfolder(ByVal p As String)
'
On Error Resume Next
If fso.getfolder(p).SubFolders.Count > 0 Then
For Each sfolder In fso.getfolder(p).SubFolders
'++++++++++++++++++++++++++++++++++++++++++
      myfs = sfolder.Name
      spath = sfolder.Path & "\"
      Call 获取当前文件名
'++++++++++++++++++++++++++++++++++++++++++++++
getfolder (sfolder.Path)          '在这里递归
Next
End If
End Sub

cflood · 发表于 2010-5-7 14:31

原帖由 yancjm 于 2010-5-6 11:36 发表

给你一个没有密码的

十分感谢。

a6064101 · 发表于 2010-5-7 15:36

学习中，很是不懂的

suifengo00 · 发表于 2010-5-7 21:58

盼大虾帮忙看一下，没时间研究，自己再顶一下！

xiayier · 发表于 2010-5-7 22:09

现阶段还只能坐享其成，先借来学习了，很没头绪。

suifengo00 · 发表于 2010-5-7 23:01

发现点问题，yancjm大虾的文件目录管理在Office2003中运行没有问题，2007中会进入死循环，在13楼有截图。

poonal · 发表于 2010-5-8 12:24

有收获。感谢！

ZDYCTD · 发表于 2010-5-8 12:42

路过学习了!

suifengo00 · 发表于 2010-5-8 13:16

upupupup！
yancjm大虾的文件目录管理在Office2003中运行没有问题，2007中会进入死循环，在13楼有截图。

yancjm · 发表于 2010-5-8 13:35

原帖由 suifengo00 于 2010-5-8 13:16 发表
upupupup！
yancjm大虾的文件目录管理在Office2003中运行没有问题，2007中会进入死循环，在13楼有截图。

這個我也沒有解，給你一個excel百寶箱的網址，你可以用它來生成文件夾目錄
http://excelbbx.cn/
http://www.uushare.com/user/andysky/files/1451325

		自动登录	找回密码
密码			免费注册

[已解决] 如何获取某目录的目录树，并生成超链接。

最新热点 /1