IIS日志清理之IIS日志生成系统(CreateIISLog.vbs)：
'IIS日志清理之IIS日志生成系统(CreateIISLog.vbs)
'创建文件夹
Function CreateFolder(Folder)
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(Folder)
If Err>0 Then
Err.Clear
CreateFolder = False
Else
CreateFolder = True
End If
End Function
'创建文件
Function CreateFile(FileName, Content)
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.CreateTextFile(FileName, True)
fd.WriteLine Content
If Err>0 Then
Err.Clear
CreateFile = False
Else
CreateFile = True
End If
End Function
CreateFolder "D:IISLogTest"
CreateFolder "D:IISLogTestIISLogs001"
CreateFolder "D:IISLogTestIISLogs002"
CreateFolder "D:IISLogTestIISLogs003"
for i=1 to 30
d=date-i
filename="ex" & right(year(d),2) & right("0" & month(d),2) & right("0" & day(d),2) & ".log"
CreateFile "D:IISLogTest" & filename,Content
CreateFile "D:IISLogTestIISLogs001" & filename,Content
CreateFile "D:IISLogTestIISLogs002" & filename,Content
CreateFile "D:IISLogTestIISLogs003" & filename,Content
后记：这个方法不仅可以用在IIS日志处理方面，还可以用在处理Serv-U的日志处理，前提条件是Serv-U的日志文件的格式也得设成像IIS日志这样的格式ex071115.log。
