返回列表 上一主題 發帖

如何檢查指定檔案是否存在

回復 1# enoch

VBA
  1. Sub filesearch()
  2. Dim MyFile As Object
  3. Dim Str As String
  4. Str = "c:\" & [A1]
  5. Set MyFile = CreateObject("Scripting.FileSystemObject")
  6. If MyFile.FileExists(Str) Then
  7.    MsgBox "文件已找到!"
  8. Else
  9.    MsgBox "文件不存在!"
  10. End If
  11. End Sub
複製代碼

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題