<% html/inc/fso_inc.asp

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%
Class CFSO
	'----定义私有变量----
	Private sObjFSO 'FSO对象	
	'----定义公有变量----
	
	'----定义属性----
	
	'----构造和析构方法----
	Private Sub Class_Initialize()
		Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject")
	End Sub

	Private Sub Class_Terminate()
		CloseObj sObjFSO
	End Sub
	
	'获取属性
	Private Function GetAttrInfo(Attributes)
		If Attributes = 0 Then
				GetAttrInfo = LPString("FA_Normal")
			Else
				If Attributes And 1 Then GetAttrInfo = GetAttrInfo & LPString("FA_Read-Only") & ", "
				If Attributes And 2 Then GetAttrInfo = GetAttrInfo & LPString("FA_Hidden") & ", "
				If Attributes And 4 Then GetAttrInfo = GetAttrInfo & LPString("FA_System") & ", "
				If Attributes And 16 Then GetAttrInfo = GetAttrInfo & LPString("FA_Directory") & ", "
				If Attributes And 32 Then GetAttrInfo = GetAttrInfo & LPString("FA_Archive") & ", "
				If Attributes And 1024 Then GetAttrInfo = GetAttrInfo & LPString("FA_Alias") & ", "
				If Attributes And 2048 Then GetAttrInfo = GetAttrInfo & LPString("FA_Compressed") & ", "
				If Not IsEmpty(GetAttrInfo) Then '去掉最后两个字符
					GetAttrInfo = Left(GetAttrInfo,Len(GetAttrInfo)-2)
				End If
			End If
	End Function
	
	'**** 文件操作 ****
	
	'复制文件
	Public Function CopyFile(SourceFile,DestinationFile,Cut,OverWrite)
		On Error Resume Next
		Call sObjFSO.CopyFile(SourceFile,DestinationFile,OverWrite)
		If Cut Then DeleteFile(SourceFile)
		CopyFile = True
		If Err.number <> 0 Then
			'出错处理
			CopyFile = False
		End If
	End Function
	
	'文件更名
	Public Function RenameFile(OriginalName,TargetName)
		sObjFSO.GetFile(OriginalName).Move(TargetName)
	End Function
	
	'删除文件
	Public Function DeleteFile(SourceFile)
		sObjFSO.DeleteFile(SourceFile)
	End Function
	
	'批量复制文件