nFileSysObj.cls
资源名称:IE_VB.rar [点击查看]
上传用户:davilee3
上传日期:2015-04-22
资源大小:986k
文件大小:1k
源码类别:
浏览器
开发平台:
Visual Basic
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- Persistable = 0 'NotPersistable
- DataBindingBehavior = 0 'vbNone
- DataSourceBehavior = 0 'vbNone
- MTSTransactionMode = 0 'NotAnMTSObject
- END
- Attribute VB_Name = "nFileSysObj1"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = False
- Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
- Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
- Option Explicit
- Dim FileSys As Object
- Private Sub Class_Initialize()
- Set FileSys = CreateObject("Scripting.FileSystemObject")
- End Sub
- Public Function nFolderExists(nFolder As String)
- nFolderExists = FileSys.FolderExists(nFolder)
- End Function
- Public Function nFileExists(nfile As String)
- nFileExists = FileSys.FileExists(nfile)
- End Function
- Private Sub Class_Terminate()
- Set FileSys = Nothing
- End Sub