http://snippets.dzone.com/posts Sat, 06 Sep 2008 19:43:59 GMT DZone Snippets: FileSystemObject code http://snippets.dzone.com/posts/show/3101 vbscript class wrapper to expose file system object methods and properties. <br /> <br /><code> <br />CLASS FSOBJ <br />dim FSO, f, f1, fc, s <br />dim nso <br />Sub Class_Initialize() <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> Set nso = CreateObject("WScript.Network") <br />End Sub <br /> <br />Sub Class_Terminate() <br /> Set FSO = Nothing <br /> Set nso = Nothing <br />End Sub <br />Property Get GetFolder(folderspec) <br />Set GetFolder = FSO.GetFolder(folderspec) <br />End Property <br />Property Get GetFile(filespec) <br />Set GetFile = FSO.GetFile(filespec) <br />End Property <br />Property Get GetFileSize(filespec) <br /> <br />Set f = FSO.GetFile(filespec) <br />GetFileSize = f.Size <br />End Property <br />Property Get GetComputerName() <br /> GetComputerName = nso.computername <br />End Property <br /> <br />Function FolderExists(folderspec) <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> FolderExists = FSO.FolderExists(folderspec) <br />End Function <br />Function FileExists(pathNfilespec) <br /> 'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1) <br /> 'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1) <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> 'FolderExists = fso.FolderExists(folderspec) <br /> FileExists = FSO.FileExists(pathNfilespec) <br />End Function <br />Function FileDelete(pathNfilespec) <br /> 'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1) <br /> 'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1) <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> If FSO.FileExists(pathNfilespec) = True Then <br /> FSO.DeleteFile pathNfilespec, True <br /> End If <br />End Function <br />Function ShowFileAccessInfo(filespec) <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br />If FSO.FolderExists(folderspec) = True Then <br /> Set f = FSO.GetFile(filespec) <br /> s = f.path & "<br>" <br /> s = s & "Created: " & f.DateCreated & "<br>" <br /> s = s & "Last Accessed: " & f.DateLastAccessed & "<br>" <br /> s = s & "Last Modified: " & f.DateLastModified <br /> ShowFileAccessInfo = s <br />End If <br />End Function <br />Function FileModified(pathNfilespec) <br /> 'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1) <br /> 'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1) <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> Set f = FSO.GetFile(pathNfilespec) <br /> If FSO.FileExists(pathNfilespec) = True Then <br /> FileModified = f.DateLastModified <br /> End If <br />End Function <br />Function FileAccessed(pathNfilespec) <br /> 'folderspec = Left(pathNfilespec, Len(pathNfilespec) - InStrRev(pathNfilespec, "\") + 1) <br /> 'filespec = Right(pathNfilespec, InStrRev(pathNfilespec, "\") - 1) <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> Set f = FSO.GetFile(pathNfilespec) <br /> If FSO.FileExists(pathNfilespec) = True Then <br /> FileAccessed = f.DateLastAccessed <br /> End If <br />End Function <br />Sub AddNewFolder(path, folderName) <br />Dim nf <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> Set f = FSO.GetFolder(path) <br /> Set fc = f.SubFolders <br /> If folderName <> "" Then <br /> Set nf = fc.Add(folderName) <br /> Else <br /> Set nf = fc.Add("New Folder") <br /> End If <br />End Sub <br /> <br /> <br />Function ShowFileList(folderspec) <br /> <br /> Dim FSO, f, f1, fc, s <br /> <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> <br /> Set f = FSO.GetFolder(folderspec) <br /> <br /> Set fc = f.FILES <br /> <br /> For Each f1 In fc <br /> <br /> s = s & f1.Name <br /> <br /> s = s & vbTab <br /> <br /> Next <br /> <br /> ShowFileList = s <br /> <br />End Function <br />Sub FILES(FolderNPath) <br /> <br /> Dim FSO, f, f1, fc, s <br /> <br /> Set FSO = CreateObject("Scripting.FileSystemObject") <br /> <br /> Set f = FSO.GetFolder(FolderNPath) <br /> <br /> Set fc = f.FILES <br /> <br /> For Each f1 In fc <br /> <br /> Next <br />End Sub <br />Sub CopyFile(Source , Destination , Overwrite ) <br /> <br />FSO.CopyFile Source, Destination, Overwrite <br />End Sub <br /> <br />END CLASS <br /></code> Thu, 07 Dec 2006 04:40:38 GMT http://snippets.dzone.com/posts/show/3101 millerjohneric (John Miller)