利用vb怎么设计能找到所有mp4格式的
展开全部
spath="mp4所在的方件夹路径，比如c:\"
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sDir = Dir(sPath & "*.mp4", vbDirectory)
Do While Len(sDir)
If Left(sDir, 1) <> "." And Left(sDir, 1) <> ".." Then
If GetAttr(sPath & sDir) And vbDirectory Then
debug.print sPath & sDir & "\"
i = i + 1
End If
End If
sDir = Dir
Loop
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sDir = Dir(sPath & "*.mp4", vbDirectory)
Do While Len(sDir)
If Left(sDir, 1) <> "." And Left(sDir, 1) <> ".." Then
If GetAttr(sPath & sDir) And vbDirectory Then
debug.print sPath & sDir & "\"
i = i + 1
End If
End If
sDir = Dir
Loop
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
