vb 判断文件是否存在并获取文件路径

我要判断d盘的所有文件夹是否有123.exe文件,如果有这个文件就获取这个文件的路径,用VB6.0代码如何写啊。... 我要判断d盘的所有文件夹是否有123.exe文件,如果有这个文件就获取这个文件的路径,用VB6.0代码如何写啊。 展开
 我来答
syx54
2012-06-05 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2742万
展开全部
使用VB菜单:[工程] -- [引用] -- ,勾选:Microsoft Scriptiong Runtime,[确定]

在窗体上添加1个文本框,设置MultiLine 属性为True,ScrollBars 属性为3-Both

添加1个按钮:

代码如下,复制即可用:
Option Explicit
Private nnnn As Integer
Private MyFile As String

Private Sub Command1_Click()
nnnn = 0
MyFile = ""
OutFile "D:\", "123.exe"
Text1.Text = MyFile
MsgBox "一共找到:" & nnnn & " 个文件"
End Sub

'递归过程--返回指定文件夹下的指定文件
Private Sub OutFile(ByVal MyFolder As String, ByVal MyFileName As String)
Dim fs, f, f1, s, sf, f2, mf
Dim L As Integer '寻找的文件名长度

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(MyFolder)
Set sf = f.SubFolders
For Each f1 In sf
OutFile f1, MyFileName
Next

L = Len(MyFileName)
Set mf = f.Files
For Each f2 In mf
If Right(f2, L) = MyFileName Then
nnnn = nnnn + 1
MyFile = MyFile & f2 & vbCrLf
End If
Next

End Sub
追问
如何把查找到的文件路径添加到text1.text里面啊
追答
按照上面说的做,没有问题.
结果放到文本框语句:
Text1.Text = MyFile
wyw0113
2012-06-05 · TA获得超过2107个赞
知道大有可为答主
回答量:2519
采纳率:66%
帮助的人:971万
展开全部
用 API中的文件路径判断函数。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
归萱pN
2012-06-05 · TA获得超过990个赞
知道大有可为答主
回答量:1068
采纳率:0%
帮助的人:1495万
展开全部
Option Explicit
Dim fso As Object
Private Sub Command1_Click()
Dim path As String, p
path = "d:\"
path = IIf(Right(path, 1) = "\", Left(path, Len(path) - 1), path)
If fso.FolderExists(path) = True Then getsubfolderfils (path)
MsgBox "ok!"
End Sub
Private Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
End Sub
Function getsubfolderfils(path As String)
Dim p, f, s As String
On Error Resume Next
For Each f In fso.GetFolder(path).Files
If LCase(f.Name) = "123.exe" Then Print path & "\" & f.Name
DoEvents
Next
For Each p In fso.GetFolder(path).subfolders
getsubfolderfils path & "\" & p.Name
DoEvents
Next
End Function
追问
如何把查找到的文件路径添加到text1.text里面啊
追答
text1先设置成多行
If LCase(f.Name) = "123.exe" Then Print path & "\" & f.Name修改一下:
If LCase(f.Name) = "123.exe" Then text1=text1 & path & "\" & f.Name & vbnewline
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式