自动列举文件目录

p123456789

绝对是精华

july

为什么我打开后却什么也看不到呀！

1353313808

以下是引用july在2003-12-24 19:17:00的发言： 为什么我打开后却什么也看不到呀！

要打开"文件夹设置",应该在常用工具栏左下角

cxffxc

非常好

绿茶MARK

tks

流年

真正需要，多谢多谢，如果代码中多些注释，可能像我这样的新手看起来会更方便些

流年

经试用，发现个小问题。

模块modSearch中的代码是这样的：

Sub SetFolders() On Error Resume Next Dim stMedd As String

stMedd = "请选择文件目录：" Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1) If Not obMapp Is Nothing Then Directory = obMapp.self.Path & "\" Else Exit Sub End If Load frmMain frmMain.Show End Sub

小问题就在，当只选择某分区根目录的时候，路径有误。

比如，只选择D盘，则 Directory 变量获取的值为 D:\\ 多了一个斜杠。

所以我就修改了一下，修改后如下：

Private Sub CommandButton3_Click() '=========================================== '作用：选择保存文件的路径 On Error Resume Next Dim stMedd As String

stMedd = "请选择保存文件的位置：" Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1) If Not obMapp Is Nothing Then Directory = obMapp.self.Path If Right(Directory, 1) <> "\" Then Directory = Directory & "\" End If Else Exit Sub End If Load frmMain frmMain.Show End Sub

只是加了个小小的判断。这段程序对我真的太有用了，苦苦寻觅了1周啊！

再次感谢！

[此贴子已经被作者于2005-3-14 18:30:10编辑过]

bmdsjxyw

Windows 98 + Office 2000报告无法使用

tudi6709

绝对精华，我提一个小小的建议。

用起来很方便，但是我写报告，报告内容有很多表格，如表1-1、表1-2。。。。表2-1、表2-2。。。。。表3-1。。。。。。表3-N。如果在建立目录时，同时各表格建立链接多好。

路径 文件名 。。。。。。。。

02-114号 表1-1 表1-2 。。。。。。 表 3-N

望老师们多出作品。

shuiyuan

我这儿没有发应？

Win98＋ExcelXP