[求助]如何用VBA建立一个显示当前文件夹下子文件夹名的复合框

huposhhy

请教各位如何用VBA建立一个复合框，在运行时列出当前文件夹下所有子文件夹名？

守柔

我不知道你的当前文件夹，具体指哪一个，以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By 守柔(ShouRou)@ExcelHome 2005-3-8 20:01:30 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [用户窗体-UserForm1]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub UserForm_Initialize() Dim FSO As Object, F As Object, F1 As Object, SF As Object, MyPath As String MyPath = Options.DefaultFilePath(wdDocumentsPath) '当前文件夹 ' Debug.Print MyPath ' MyPath = "E:\Personal" Set FSO = CreateObject("Scripting.FileSystemObject") Set F = FSO.GetFolder(MyPath) Set SF = F.SubFolders For Each F1 In SF Me.ComboBox1.AddItem F1 Next End Sub '----------------------

huposhhy

守柔老师您好，您的代码我测试过了，但好像存在一个问题，如将文件最初放在C：\目录下，程序运行后，将显示C：\目录下的所有文件夹，但若将文件复制到D：\目录下，可运行后仍显示原来C：\的文件夹；还有我想只列出DOC文件所在的文件夹的子文件夹名，而不要路径，这将如何修改。

下面是文件，里有一段代码，但也存在一定问题，不过我不问题出在了什么地方，能不能将其修改下达到我原来的目的，并说明原因。

谢谢！

xQj7apHo.rar (7.24 KB, 下载次数: 65)

2005-3-8 22:04 上传

点击文件名下载附件
[求助]如何用VBA建立一个显示当前文件夹下子文件夹名的复合框

huposhhy

我又细检查了一下，有一段代码打错了“ComboBox1.AddItem founddir”，不过还是存在上述问题，就是即使将DOC文件由A文件夹移到B文件夹后，“searchdir = "\*."”还是A文件夹内的子文件夹名，除非给出绝对路径“searchdir = "e:\B\*."”请问这个问题如何解决，谢谢！！

守柔

请楼主下载我的置顶贴子<守柔WORD编程集>,里面有关于文件\文件夹搜索的范例,你先看后再说.

huposhhy

这个问题已经解决（不过还是存在上述问题，就是即使将DOC文件由A文件夹移到B文件夹后，“searchdir = "\*."”还是A文件夹内的子文件夹名，除非给出绝对路径“searchdir = "e:\B\*."”）无论将DOC文件移到何处都已会显示当前文件夹下子文件夹名了。

不过我还想请教一个问题，就是如何去掉列表中前两行中的两个点（“.”“..”）?相关文件如下：

coFCgDQw.rar (7.28 KB, 下载次数: 87)

2005-3-9 23:23 上传

点击文件名下载附件
[求助]如何用VBA建立一个显示当前文件夹下子文件夹名的复合框

huposhhy

版主一定是很忙，只有再等等了。

huposhhy

问题已经解决！！　真是太晚了，我要先睡了，明天还要工作，不然要被炒鱿鱼了。

huposhhy

在请教一个问题:如何用组合框显示一个目录下所有文件的文件名,而且不包括文件夹名,且显示的文件名中不显示扩展名. 再次谢谢!!!

yangzh

QUOTE:

以下是引用huposhhy在2005-3-9 23:21:00的发言：

这个问题已经解决（不过还是存在上述问题，就是即使将DOC文件由A文件夹移到B文件夹后，“searchdir = "\*."”还是A文件夹内的子文件夹名，除非给出绝对路径“searchdir = "e:\B\*."”）无论将DOC文件移到何处都已会显示当前文件夹下子文件夹名了。

不过我还想请教一个问题，就是如何去掉列表中前两行中的两个点（“.”“..”）?相关文件如下：

帖中说您已解决,能否传上来学习一下?