Simple FSO directory file listing

spearmahj (j) — Tue, 02 Jan 2007 04:28:41 GMT

// simple browsing tool



<%



dim aryURL, URLvar

aryURL = Split(Request.ServerVariables("SCRIPT_NAME"), "/", -1, 1)

URLvar = aryURL(ubound(aryURL))



if request.querystring("sPP")<>"" then 

	

	sPP=request.querystring("sPP") & "\"

	ParentVar="Parent Directory

" & vbCrLF

else

	sPP = "\\serverlocation\"

end if



	

	Set fso = CreateObject("Scripting.FileSystemObject")

	Set f = fso.GetFolder(sPP)  

	Set fc = f.Files 

	Set ff = f.SubFolders 

	For Each f1 in ff	

	  HeaderVar=HeaderVar& "" & f1.name & "  | " & vbCrLF

	Next  

	For Each f1 in fc

	  SubHeaderVar=SubHeaderVar& "" & f1.name & " 
" & vbCrLF

	Next  

	Set ff = nothing

	Set fso = nothing

	Set f = nothing

	Set fc = nothing





response.write ParentVar

if HeaderVar<>"" then response.write "Folders" & vbCrLF & "

 | " & vbCrLF & HeaderVar & "

" & vbCrLF

if SubHeaderVar<>"" then response.write "Files" & vbCrLF & "

" & vbCrLF & SubHeaderVar & vbCrLF



%>

File System Object VBScript

millerjohneric (John Miller) — Thu, 07 Dec 2006 04:40:38 GMT

vbscript class wrapper to expose file system object methods and properties.



CLASS FSOBJ

dim FSO, f, f1, fc, s

dim  nso

Sub Class_Initialize()

   Set FSO = CreateObject("Scripting.FileSystemObject")

   Set nso = CreateObject("WScript.Network")

End Sub



Sub Class_Terminate()

   Set FSO = Nothing

   Set nso = Nothing

End Sub

Property Get GetFolder(folderspec) 

Set GetFolder = FSO.GetFolder(folderspec)

End Property

Property Get GetFile(filespec)

Set GetFile = FSO.GetFile(filespec)

End Property

Property Get GetFileSize(filespec) 



Set f = FSO.GetFile(filespec)

GetFileSize = f.Size

End Property

Property Get GetComputerName() 

 GetComputerName = nso.computername

End Property



Function FolderExists(folderspec)

   Set FSO = CreateObject("Scripting.FileSystemObject")

   FolderExists = FSO.FolderExists(folderspec)

End Function

Function FileExists(pathNfilespec)

    'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1)

    'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1)

   Set FSO = CreateObject("Scripting.FileSystemObject")

   'FolderExists = fso.FolderExists(folderspec)

   FileExists = FSO.FileExists(pathNfilespec)

End Function

Function FileDelete(pathNfilespec)

    'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1)

    'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1)

   Set FSO = CreateObject("Scripting.FileSystemObject")

   If FSO.FileExists(pathNfilespec) = True Then

   FSO.DeleteFile pathNfilespec, True

   End If

End Function

Function ShowFileAccessInfo(filespec)

  Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FolderExists(folderspec) = True Then

    Set f = FSO.GetFile(filespec)

  s = f.path & "
"

  s = s & "Created: " & f.DateCreated & "
"

  s = s & "Last Accessed: " & f.DateLastAccessed & "
"

  s = s & "Last Modified: " & f.DateLastModified

  ShowFileAccessInfo = s

End If

End Function

Function FileModified(pathNfilespec)

    'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1)

    'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1)

   Set FSO = CreateObject("Scripting.FileSystemObject")

     Set f = FSO.GetFile(pathNfilespec)

   If FSO.FileExists(pathNfilespec) = True Then

   FileModified = f.DateLastModified

   End If

End Function

Function FileAccessed(pathNfilespec)

    'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1)

    'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1)

   Set FSO = CreateObject("Scripting.FileSystemObject")

     Set f = FSO.GetFile(pathNfilespec)

   If FSO.FileExists(pathNfilespec) = True Then

   FileAccessed = f.DateLastAccessed

   End If

End Function

Sub AddNewFolder(path, folderName)

Dim nf

   Set FSO = CreateObject("Scripting.FileSystemObject")

   Set f = FSO.GetFolder(path)

   Set fc = f.SubFolders

   If folderName <> "" Then

      Set nf = fc.Add(folderName)

   Else

      Set nf = fc.Add("New Folder")

   End If

End Sub





Function ShowFileList(folderspec)



   Dim FSO, f, f1, fc, s



   Set FSO = CreateObject("Scripting.FileSystemObject")



   Set f = FSO.GetFolder(folderspec)



   Set fc = f.FILES



   For Each f1 In fc



      s = s & f1.Name



      s = s & vbTab



   Next



   ShowFileList = s



End Function

Sub FILES(FolderNPath)



   Dim FSO, f, f1, fc, s



   Set FSO = CreateObject("Scripting.FileSystemObject")



   Set f = FSO.GetFolder(FolderNPath)



   Set fc = f.FILES



   For Each f1 In fc

    

   Next

End Sub

Sub CopyFile(Source , Destination , Overwrite )

    

FSO.CopyFile Source, Destination, Overwrite

End Sub



END CLASS

DZone Snippets: FSO code

Simple FSO directory file listing

File System Object VBScript