• Click On The Banner Above For Over 16,000 Woodworking Plans!

  • Click On The Banner Above For Great Abs!


Please like this page:

Basic Requirements Of A Soccer Player


<%Function ReadDir(FolderName) Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Make sure the specified folder exists If Not objFSO.FolderExists(FolderName) Then ReadDir = "Folder does not exist." Exit Function End If 'Create a Folder object for the folder path we are interested in Dim objFolder Set objFolder = objFSO.GetFolder(FolderName) 'Here we want to populate an array with all of the file names for text 'files in our folder object. Note that we incrementally resize the 'array for perf reasons (see this user tip for 'an explanation on why we want to do it this way... Dim I : I = -1 ReDim arrFile(20) Dim objFile 'Loop through each file in the folder For Each objFile In objFolder.Files 'Since we only want to work with text files... If Right(objFile, 4) = ".asp" and (instr(objFile,"1")<1) Then I = I + 1 'Do we need to redim our array? if I > UBound(arrFile) then ReDim Preserve arrFile(I + 20) arrFile(I) = objFile.Path End If Next 'Make sure arrFile is the right size Redim Preserve arrFile(I) 'What if we didn't find any files in the directory? If I = -1 Then ReadDir = "" Exit Function End If 'Choose a random file from the array Randomize Dim RanFile : RanFile = Int((UBound(arrFile) - 1 + 1) * Rnd + 1) Dim strOutput : strOutput = "" Dim strFileName : strFileName = arrFile(RanFile) If objFSO.FileExists(strFileName) Then 'Open the file and dump its contents into the strOutput variable Dim objTextStream Set objTextStream = objFSO.OpenTextFile(strFileName, 1) Do While Not objTextStream.AtEndOfStream strOutput = strOutput & objTextStream.ReadLine Loop objTextStream.Close Else ReadDir = "File does not exist.
This can be changed " & _ "to a default message or nothing." Exit Function End If ReadDir = strOutput 'Finally we have the file's output! Return it Set objTextStream = Nothing Set objFolder = Nothing Set objFile = Nothing Set objFSO = NothingEnd FunctionResponse.Write(ReadDir(Server.MapPath("./")))%>

Menu: