nFileSysObj.cls
上传用户:davilee3
上传日期:2015-04-22
资源大小:986k
文件大小:1k
源码类别:

浏览器

开发平台:

Visual Basic

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "nFileSysObj1"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17. Dim FileSys As Object
  18. Private Sub Class_Initialize()
  19. Set FileSys = CreateObject("Scripting.FileSystemObject")
  20. End Sub
  21. Public Function nFolderExists(nFolder As String)
  22. nFolderExists = FileSys.FolderExists(nFolder)
  23. End Function
  24. Public Function nFileExists(nfile As String)
  25. nFileExists = FileSys.FileExists(nfile)
  26. End Function
  27. Private Sub Class_Terminate()
  28. Set FileSys = Nothing
  29. End Sub