彰化一整天的論壇

 找回密碼
 立即註冊
查看: 108|回復: 0

檢查檔案是否存在(UTF8可用)

[複製鏈接]
發表於 2019-6-15 09:31:21 | 顯示全部樓層 |閱讀模式
底下是我寫的二個函數,來解決utf8目錄或檔名的問題.
  1. Function checkDir(ByVal strPath)
  2.     '檢查目錄是否存在,用dir簡體字會出錯

  3.     Dim fos, fd


  4.     On Error GoTo ErrorHandler:
  5.    
  6.     Set fos = CreateObject("Scripting.FileSystemObject")
  7.     Set fd = fos.getfolder(strPath) '檔案目錄
  8.    

  9.    
  10.     checkDir = True
  11.    
  12.     Exit Function
  13.    
  14.    
  15. ErrorHandler:
  16.     checkDir = False
  17.    
  18. End Function
  19. Function checkFile(ByVal strPath)
  20.     '檢查檔案是否存在,用dir簡體字會出錯
  21.     Dim fos, ff


  22.     Set fos = CreateObject("Scripting.FileSystemObject")
  23.     checkFile = fos.fileExists(strPath) '讀取檔案
  24.    


  25. End Function

複製代碼


回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-9-22 17:55 , Processed in 0.113101 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表