vb判斷文件夾是否空

A. 在VB中如何判斷文件、文件夾是否存在

Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String 解釋：PathName:文件或文件夾的絕對路徑。 Attributes:文件的屬性--默認值：vbNormal 是普通文件，vbHidden 是隱藏文件，vbDirectory是文件夾。 "[]"內為可以選項。Dir(file)=""表示文件或文件夾不存，即文件或文件夾的實際路徑文空。Dir(file)<>""表示文件或文件夾存在,即文件或文件夾實際路徑不為空。 例如判斷C:\Windows\System32\cmd.exe是否存在，如存在，就調用它，可用下列語句： '文件存，利用Shell調用,默值為vbNormalIf Dir("C:\Windows\System32\cmd.exe")<>"" Then Shell "C:\Windows\System32\cmd.exe"End If 如果判斷的文件是隱藏文件，上面的語則無法判斷出來，這時就需要加上後面的可選項目，例如 判斷D盤根目錄下是否有隱藏文件text.txt,就用下面的源代碼： If Dir("D:\text.txt",vbHidden)<>"" Then Msgbox "找到Text.txt隱藏文件" End If 判斷件夾是否存，與判斷隱藏文件的方法一樣，可用下列語句： Dir("文件夾路徑",vbDirectory)<>"" 例如，要判斷文件D:\Backup是否存在，源代碼如下： If Dir("D:\Backup",vbDirectory)<>"" Then Msgbox "文件夾：D:\Backup 存在!" End If 二、在VB的編程，也會用到利用應程序時生成文件夾。可以利用下面的言句生成文件夾： MkDir "文件夾路徑" 例如：在應用程序根目錄下，生成Backup文件夾。在生成之前先判斷該文件夾否存在。源代碼如下： Dim BackupPath As String Select Case Right(App.Path,1) '判斷路徑是否包含'\' case '\': BackupPath = App.Path & "Backup" case Else BackupPath = App.Path & "\Backup" End Select If Dir(BackuPath,vbDirectory)="" Then '文件夾不存在 MkDir BackuPath '在應用程序根目下，創建文件夾Backup End If