vb中Dir函數(shù)怎么用

If Dir("C:\test.xls") "" then

10年積累的成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)經(jīng)驗(yàn)，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先做網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有英吉沙免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

MsgBox "文件存在" '當(dāng)C盤根目錄存在test.xls文件時提示“文件存在”

else

MsgBox "文件不存在"

End If

--------------------------------------------------------------------------------

Dir函數(shù)

返回一個 String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配。

語法

Dir[(pathname[, attributes])]

Dir 函數(shù)的語法具有以下幾個部分：

部分 描述

pathname 可選參數(shù)。用來指定文件名的字符串表達(dá)式，可能包含目錄或文件夾、以及驅(qū)動器。如果沒有找到 pathname，則會返回零長度字符串 ("")。

attributes 可選參數(shù)。常數(shù)或數(shù)值表達(dá)式，其總和用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。

設(shè)置值

attributes 參數(shù)的設(shè)置可為：

常數(shù) 值 描述

vbNormal 0 (缺省) 指定沒有屬性的文件。

vbReadOnly 1 指定無屬性的只讀文件

vbHidden 2 指定無屬性的隱藏文件

VbSystem 4 指定無屬性的系統(tǒng)文件

vbVolume 8 指定卷標(biāo)文件；如果指定了其它屬性，則忽略vbVolume

vbDirectory 16 指定無屬性文件及其路徑和文件夾。

注意 這些常數(shù)是由 VBA 所指定的，在程序代碼中的任何位置，可以使用這些常數(shù)來替換真正的數(shù)值。

說明

Dir 支持多字符 (*) 和單字符 (?) 的通配符來指定多重文件。

由于 Macintosh 不支持通配符，使用文件類型指定文件組。可以使用 MacID 函數(shù)指定文件類型而不用文件名。比如，下列語句返回當(dāng)前文件夾中第一個TEXT文件的名稱:

Dir("SomePath", MacID("TEXT"))

為選中文件夾中所有文件，指定一空串:

Dir("")

在 Microsoft Windows 中，如果在Dir函數(shù)中使用MacID函數(shù)，將產(chǎn)生錯誤。

任何大于256的attribute值都被認(rèn)為是MacID 函數(shù)的值。

在第一次調(diào)用 Dir 函數(shù)時，必須指定 pathname，否則會產(chǎn)生錯誤。如果也指定了文件屬性，那么就必須包括 pathname。

Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名，再一次調(diào)用 Dir，且不要使用參數(shù)。如果已沒有合乎條件的文件，則 Dir 會返回一個零長度字符串 ("")。一旦返回值為零長度字符串，并要再次調(diào)用 Dir 時，就必須指定 pathname，否則會產(chǎn)生錯誤。不必訪問到所有匹配當(dāng)前 pathname 的文件名，就可以改變到一個新的 pathname 上。但是，不能以遞歸方式來調(diào)用 Dir 函數(shù)。以 vbDirectory 屬性來調(diào)用 Dir 不能連續(xù)地返回子目錄。

提示 由于文件名并不會以特別的次序來返回，所以可以將文件名存儲在一個數(shù)組中，然后再對這個數(shù)組排序。

Dir語句在VB中有什么用?

dir用來查找文件.

使用dir

Option Explicit

Dim filesearch As String

Dim findflag As Boolean

' 清空搜索結(jié)果

Private Sub clrcmd_Click()

lstfiles.Clear

End Sub

' 開始查找文件

Private Sub cmdgo_Click()

Dim starttime As Single

Dim i As Integer

Dim Add As Boolean

lstfiles.Clear '查找文件之前先清空結(jié)果

lstdirs.Clear

findflag = True '設(shè)置查找標(biāo)志

stopcmd.Enabled = True '設(shè)置停止查找按鈕為可用

clrcmd.Enabled = False '設(shè)置清空結(jié)果按鈕為不可用

starttime = Timer '記錄開始查找時刻

filesearch = Combo1.Text

' 將查找文件加入到組合框中

For i = 0 To Combo1.ListCount - 1

If Combo1.List(i) Combo1.Text Then

Add = True

Else

Add = False

End If

Next

If Add = True Then

Combo1.AddItem (Combo1.Text)

End If

lstdirs.AddItem (Drive1.Drive "\")

' 執(zhí)行查找文件

Do

status.Caption = "Searching . . . " lstdirs.List(0)

' 調(diào)用函數(shù)

findfilesdir lstdirs.List(0)

' 從目錄列表中移除

lstdirs.RemoveItem 0

' 中途退出查找

If findflag = False Then

Exit Do

End If

Loop Until lstdirs.ListCount = 0

stopcmd.Enabled = False

clrcmd.Enabled = True

' 顯示查找文件的信息

status.Caption = "用時" Timer - starttime "秒 " "找到" lstfiles.ListCount "個文件"

End Sub

' 用來查找文件的函數(shù)

Public Sub findfilesdir(DirPath As String)

Dim filestring As String

DirPath = Trim(DirPath)

If Right(DirPath, 1) "\" Then

DirPath = DirPath "\"

End If

' 使用Dir函數(shù)獲得DirPath目錄下的文件或目錄

filestring = Dir(DirPath "*.*", vbArchive Or vbHidden Or vbSystem Or vbDirectory)

Do

DoEvents '轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件

If filestring = "" Then

Exit Do

Else

If (GetAttr(DirPath filestring) And vbDirectory) Then

If Left(filestring, 1) "." And Left(filestring, 2) ".." Then

lstdirs.AddItem DirPath filestring "\"

End If

Else

' 比較以確定是否是要查找的文件

If (filestring Like filesearch) Then

lstfiles.AddItem DirPath filestring

End If

End If

End If

filestring = Dir ' 返回其他文件名

Loop

End Sub

' 結(jié)束退出

Private Sub quitcmd_Click()

Unload Me

End

End Sub

' 停止查找

Private Sub stopcmd_Click()

findflag = False

stopcmd.Enabled = False

End Sub

Private Sub Form_Load()

Combo1.AddItem ("*.*")

End Sub

VB中Dir函數(shù)的意思

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函數(shù)返回一個代表有特定屬性的文件名,目錄名,或者一個文件夾名的字符串. 一般用來檢測是否存在某文件或文件夾. 這是一個例子This example uses the Dir function to check if certain files and directories exist. Dim MyFile, MyPath, MyName ' Returns "WIN.INI" if it exists. MyFile = Dir("C:\WINDOWS\WIN.INI") 不明白請追問

dir()在VB中是表示什么

樓上說的都對，但是只說了語法，沒說用途，需要強(qiáng)調(diào)的是，Dir函數(shù)在VB中最主要的用途是確定文件是否存在，不存在就返回空字符串，例如

if dir("c:\1.txt")="" then '如果c:\1.txt不存在，那么...