|
|
|
7i24.Com不停为您服务
<%@ Language=VBScript %>
<%
'Always do this: (good programming practice!)
Option Explicit
'Declare our FileSystemObject variable
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
Dim strCurrentFolder
strCurrentFolder = "C:\Inetpub\wwwroot\"
Set objFolder = objFSO.GetFolder(strCurrentFolder)
'Declare a file object
Dim objFile
'What is the maximum size of a file in bytes?
Const MaxSize = 5000 '50 KB
'Did we find any violating files?
Dim bolViolators
bolViolators = False
'Now, use a for each...next to loop through the Files collection
For Each objFile in objFolder.Files
'Check to see if objFile is an MP3
If LCase(Right(objFile.Name, 4)) = ".mp3" then
'Print out the violating file name and location
Response.Write "<B>MP3 File!</B><BR>"
Response.Write objFile.Path & "<P>"
'We found a violator
bolViolators = True
End if
'Make sure the file isn't too big
If objFile.Size > MaxSize then
'Print out the violating file name and location
Response.Write "<B>File is too large! (" & objFile.Size & " bytes)</B><BR>"
Response.Write objFile.Path & "<P>"
'We found a violator
bolViolators = True
End If
Next
'Now, if we didn't have any violating files, say so!
If Not bolViolators then
Response.Write "No violating Files..."
End if
'Clean up...
Set objFSO = Nothing
Set objFolder = Nothing
%>
<%@ Language=VBScript %>
<%Option Explicit %>
<%
Sub IterateThroughDirectory(objFolder)
'Process each file to determine if it is larger than 50kb
'or is of type MP3
'What is the maximum size of a file in bytes?
Const MaxSize = 50000 '50 KB
'Now, use a for each...next to loop through the Files collection
For Each objFile in objFolder.Files
'Check to see if objFile is an MP3
If LCase(Right(objFile.Name, 4)) = ".mp3" then
'Print out the violating file name and location
Response.Write "<B>MP3 File!</B><BR>"
Response.Write objFile.Path & "<P>"
End if
'Make sure the file isn't too big
If objFile.Size > MaxSize then
'Print out the violating file name and location
Response.Write "<B>File is too large! (" & objFile.Size & " bytes)</B><BR>"
Response.Write objFile.Path & "<P>"
End If
Next
Dim objFile
For Each objFile in objFolder.Files
if Lcase(Right(objFile.Name,4)) = ".mp3" then
objDict.Add CStr(iCount), objFile.Path
iCount = iCount + 1
end if
Next
Dim objSubFolder
For Each objSubFolder in objFolder.SubFolders
IterateThroughDirectory objSubFolder
Next
End Sub
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim strCurrentFolder
strCurrentFolder = "C:\Inetpub\wwwroot\"
Dim objFolder
Set objFolder = objFSO.GetFolder(strCurrentFolder)
IterateThroughDirectory objFolder
%>
|
|
|