VB中判断文件及文件夹是否存在

1   If   Dir("c:\a.txt",   vbNormal)   <>   ""   Then  
                  msgbox     "文件存在"  
          End   If

2    If   Dir(appPath   &   "aaa.ini")   =   ""   Then  
                  MsgBox   "配置文件"   &   appPath   &   "aaa.ini未找到,程序终止!"  
                  End  
          End   If

3    也可以用FSO对象来实现,比较麻烦一点,给个示例,如下:  
  Dim   sFile                       As   New   FileSystemObject  
  If   sFile.FolderExists(App.Path   &   "\FuJian")   =   False   Then         '无FuJian这个目录，则创建它  
                  sFile.CreateFolder   (App.Path   &   "\FuJian")  
          End   If  
           
          If   sFile.FileExists(App.Path   &   "\FuJian\"   &   m_sFileName)   =   True   Then  
                  If   MsgBox("文件："   &   m_sFileName   &   "已存在相同名称的文件，是否覆盖？",   vbQuestion   +   vbYesNo)   =   vbYes   Then  
                          '将选择的文件先拷贝到当前应用程序下的FuJian目录下  
                          sFile.CopyFile   Trim(Maintext(0).Text),   App.Path   &   "\FuJian\",   True  
                  Else  
                          Exit   Sub  
                  End   If  
          Else  
                  '将选择的文件先拷贝到当前应用程序下的FuJian目录下  
                  sFile.CopyFile   Trim(Maintext(0).Text),   App.Path   &   "\FuJian\",   True  
          End   If

 

(比如说我想得知C:\123.exe 创建时间,要怎么做呢?)

Set fs = CreateObject("Scripting.FileSystemObject") '创建FileSystemObject 对象
Set f = fs.GetFile("C:\123.exe ") '返回指定路径文件所对应的 File 对象
'File 对象的 DateCreated 属性返回该文件夹的创建日期和时间
'File 对象的 DateLastModified 属性返回最后一次修改该文件的日期和时间
'File 对象的 DateLastAccessed 属性返回最后一次访问该文件的日期和时间
MsgBox "创建时间：" & f.DateCreated & vbCrLf & "修改时间：" & f.DateLastModified & vbCrLf & "访问时间：" & f.DateLastAccessed, vbInformation, f.Name & "属性"

 

 

4    在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用vb 6.0提供的filesystemobject对象。

　　filesystemobject对象不是vb内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“microsoft scripting runtime”，然后利用filesystemobject的fileexists方法来判断文件是否存在。示例程序代码如下：

　　private sub command1_click()

　　 ′引用filesystemobject对象

　　 dim fs as new filesystemobject

　　 ′利用filesystemobject对象的fileexists

　　 ′方法判断文件是否存在

　　 if fs.fileexists(″c:＊.gif″) then

　　 msgbox ″文件存在″

　　 else

　　 msgbox ″文件不存在″

　　 end if

　　end sub

　　灵活运用filesystemobject对象可以解决与文件操作有关的大部分问题。

5   判断文件夹

   dir(文件夹,vbDirectory)就可以了,也就是在文件夹名后面加个\",vbDirectory\"