vba查找文件夹的问题
各位大侠，我在编写VBA时碰到一个问题，我的程序是这么写的，If Dir("C:\Program Files\*" & AE & "*\*" & AF & "*.*") <> "" Then，其中AE是文件夹名，是个变量，AF是文件名。我用*号模糊查找文件夹程序就报错：文件名或文件号错误！请教如何解决，谢谢！
如果你想要找到含有AE变量的所有文件夹里文件名包含AF变量的文件，要用两重循环才行
能给个详细的程序吗？谢谢！
VBA遍历多级文件夹对文件中的内容进行查询(dir循环遍历)
先设置一个场景：现在有一个文件夹test，其下有两个子文件夹A,B，A中有一些TXT文本，B中有我们所需要的一个pl脚本，现在我们来开始进行查询取得pl脚本中的内容。Subfindfileway()dim fso,folder,fds,fd '设置变量Dim beginfile '设置最外层文件夹路径Dim folderway'当前路径Dim filename '设置文件...
vba查找文件夹的问题
必须分两步才能完成：第一步查找文件夹，第二步从找到的文件夹下找文件。如果你想要找到含有AE变量的所有文件夹里文件名包含AF变量的文件，要用两重循环才行
vba中搜索文件问题
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。Do While MyName <> "" ' 开始循环。' 跳过当前的目录及上层目录。If MyName <> "." And MyName <> ".." Then ' 使用位比较来确定 MyName 代表一目录或者文件夹。If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirector...
求救,为什么我用VBA的dir遍历文件夹老是只能获取“.”的呢??
根据vba帮助文档，dir函数会返回满足条件的第一个文件名或者文件夹名。再次调用没有任何参数的dir命令会返回满足条件的下一个文件名或者文件夹名。对于非根目录，第一个文件夹就是“.”，第二个是".."从第三个开始才是windows资源管理器下你所能看到的文件夹。所以运行 dim ff as string temp = d...
VB 检测文件夹是否为空
有一个很简单的方法，用 RmDir 文件夹，直接删除文件夹。如果删除出错，那就表示文件夹不是空的。代码如下(以C:\\temp为例)：tmp = "C:\\temp"On Error GoTo ErrRmDir (tmp) '删除目录，如果出错表示不为空MkDir (tmp) '重新建目录MsgBox "文件夹为空！"Exit SubErr:MsgBox "文件夹不为空！"...
用VBA判断指定的excel文件夹或文件是否存在
1.判断文件夹是否存在：Public Sub TestFolderExistence()If FileFolderExists("c:\\windows\\") Then MsgBox "指定的文件夹存在！"Else MsgBox "指定的文件夹不存在！"End If End Sub 将代码中的“c:\\windows\\”换成指定的文件夹，“c:\\windows\\”也可以写成“c:\\windows”，即不要后面的“\\”。
【高分求代码!】用vba,如何检索一个文件夹里所有txt文件中,包含某一文...
Set fc = fso.GetFolder("c:\\windows").Files '使用时把c:\\windows改成实际的文件夹 L = 1 For Each f1 In fc EXTName = UCase(fso.GetExtensionName(f1.Name))If EXTName = "TXT" Then Set fs = fso.OpenTextFile(f1, ForReading)fb = fs.ReadAll If InStr(1, fb, "苹果") > ...
VBA 如何搜索文件夹下的一个特定文件,如果成功则返回路径
DIR("路径")有则返回文件名，没有则返加""每次调用都会得到下一个文件夹名字 可以用DO来做，判断返回的如果跟第一个一样，就说明已经查找了一圈了
vba 查找文件夹:桌面和D:\\DOCUMENTS\\ 包含有"副本"字符的excel格式类型...
代码如下：Sub 找副本文件()Dim Pa, Bo As BooleanPa = CreateObject("WScript.Shell").SpecialFolders("Desktop")If Dir(Pa & "\\*副本*.xls*") = "" Then If Dir("D:\\DOCUMENTS\\*副本*.xls*") <> "" Then Bo = TrueElse Bo = TrueEnd IfMsgBox IIf(Bo, "有", "无") ...
VBA中要判断C盘WINDOWS文件夹中是否存在123.rar文件!如果有,程序运行...
Public Sub test()i = Dir("C:\\WINDOWS\\123.rar", vbNormal)If (i = "") Then Exit Sub Else '执行你的代码 End If End Sub
