mdsk.net
当前位置:首页 >> 【VB】查看/判断文件是否存在 Dir函数详解 >>

【VB】查看/判断文件是否存在 Dir函数详解

If Dir("C:\Windows\System32\abc.dll") = " " Then 改成 If Dir("C:\Windows\System32\abc.dll") = "" Then 即可

VB使用Dir函数判断制定文职是否存在指定文件。 Dir 函数 ,返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 Dir 函数示例 本示例使用 Dir 函数来检查某些文件或目录是否存在。在 M...

Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String 解释:PathName:文件或文件夹的绝对路径。 Attributes:文件的属性--默认值:vbNormal 是普通文件,vbHidden 是隐藏文件,vbDirectory是文件夹。 "[]"内为可以选项。Dir(...

Dim FS, F As String, FL As String Set FS = CreateObject("Scripting.FileSystemObject") If FS.FolderExists("d:\abc\acb") = True Then F = "d:\abc\acb" Else MsgBox "文件夹不存在!找不到目录!", 16, "错误!" Exit Sub End If FL = F &...

VB2005 If My.Computer.FileSystem.DirectoryExists("c:\123") Then MsgBox("文件夹存在") Else MsgBox("文件夹不存在") End If VB6 If Dir("c:\123",vbDirectory) = "" Then MsgBox("文件夹不存在") Else MsgBox("文件夹存在") End If

一般用 Len(dir("C:\001.xls"))来判断一个文件是否存在 返回的值如果大于0 则001.xls这个文件存在 否则不存在

    Dim FileName As String     Dim AppPath  As String     AppPath = IIf(Right$(App.Path, 1) = "\", App...

Dir Function Returns a String representing the name of a file, directory, or folder that matches a specified pattern or file attribute, or the volume label of a drive.以上解释来自MSDN,意思是,dir函数返回一个代表有特定属性的文件...

Private Sub Command1_Click() Dim file As String file = Dir(App.Path & "\*.txt") '第一次用带有通配符的参数 Do Until file = "" FileCopy App.Path & "\" & file, App.Path & "\Save\" & file Kill App.Path & "\" & file file=dir() '接下...

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com