1. vbs找不到指定文件
答:用vbs获取指定路径下的文件名并输出到文本文件的步骤如下。把文本文件处理为数组,每行为一个数组元素,然后在每个元素中查找关键词,vbs可以直接使用instr函数来查找,也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。这就是用vbs获取指定路径下的文件名并输出到文本文件的方法。
2. windows找不到vbs文件
win10运行vbs的方法：
1.打开win10系统的电脑，然后准备好vbs文件，这里说明一下，所有vbs都可以用记事本打开，不过看到的只是代码，而并不是运行代码的状态，我们要的是vbs真实运行的状态。
2.接着右击vbs文件，在弹出的右键菜单中选择打开方式，有的朋友没有打开方式这个选项，也可以选择属性选项。
3.一般win10系统会自动识别vbs文件，并且自动匹配打开的程序，默认是Microsoft ® Windows Based Script Host，如果自动识别的就可以双击直接运行vbs文件了，没有识别的需要手动来调节。
4.接着说下没有自动匹配程序的情况，同样是在打开方式选择程序的窗口界面，点击下方的更多应用选项。
5.在下方的列表中是没有可以打开的程序，这个时候点击最下面蓝色的文字，也就是在这台电脑上查找其他应用选项，点击打开。
6.接着进入到c盘，然后进入到windows\system32的文件夹，在里边选择wscript.exe,点击打开即可。
7.接着就可以打开vbs文件了，在桌面可以看到运行的vbs窗口界面了。
3. vbs调用bat找不到文件
CreateObject("Shell.Application").ShellExecute "bat文件","","","runas",1
4. vb找不到路径
首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():
Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开
'文件夹数和名称
Dim sf As String
sf = Dir(pathname, vbDirectory) '获取第一个目录名
foldernum = 0
Do While sf <> ""
' 跳过当前的目录及上层目录
If sf <> "." And sf <> ".." Then
If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
If treeflag = 0 Then
Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表
ElseIf treeflag = 1 Then
Text2 = Text2 & Treestr & sf & vbCrLf
ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用
Text2 = Text2 & Treestr & sf & vbCrLf
folderlist pathname + sf, treeflag
filelist pathname + sf, treeflag
End If
foldernum = foldernum + 1 '统计文件夹数目
End If
End If
sf = Dir() ' 查找下一个目录
Loop
If treeflag = 0 Then
If foldernum <> 0 Then
Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf
Else
Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf
End If
ElseIf foldernum <> 0 Then
Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf
End If
End Function
Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开
'文件数和名称
Dim a As String
a = Dir(pathname & "/*.*")
filenum = 0
Do While a <> ""
If treeflag = 0 Then
Text2 = Text2 & a & vbCrLf
Else
Text2 = Text2 & Treestr & a & vbCrLf
End If
filenum = filenum + 1 '统计文件数目
a = Dir
Loop
If treeflag = 0 Then
If filenum <> 0 Then
Text2 = Text2 & "======共有" & filenum & "个文件======"
Else
Text2 = Text2 & "======无文件信息======"
End If
End If
End Function
5. vb安装找不到文件dao
工程 > 引用 中添加引用下面两项 Microsoft DAO 3.6 Object Library Microsoft ActiveX Data Objects 2.5 Library
6. vb找不到dll文件
“找不到 DLL 入口点”，这种问题一般都是函数名的声明不正确。 比如把函数名写错（要区分大小写的）、dll文件名写错等。你的 nxmi.dll 是哪来的？一般的“第三方DLL文件”，都不会给你提供A版和W版的函数接口吧！你把 Alias "BizbussA" 删除，再运行试试。或者，把这个DLL文件发出来，我给你看看函数名是否正确。
- 相关评论
- 我要评论
-
