Microsoft Scripting Runtime #3

[ADezii]

This is the 3rd in a series of Tips dealing specifically with the Microsoft Scripting Runtime Library. In this Tip, we'll show you how to return specific Properties relating to Files, as well as various Methods to Copy, Move, and Delete them. The code is self explanatory, so I'll jump right in:

Dim fso As FileSystemObject, fil As File
'Set fso = New Scripting.FileSystemObject    OR
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set fil = fso.GetFile("C:\Windows\System32\Calc.exe")
 
Debug.Print "File Created on: " & fil.DateCreated
Debug.Print "File Size: " & FormatNumber(fil.Size, 0) & " bytes"
Debug.Print "File Drive: " & fil.Drive
Debug.Print "File Name: " & fil.Name    'OR
Debug.Print "File Name: " & fso.getFileName(fil)
Debug.Print "File Last Modified: " & fil.DateLastModified
Debug.Print "File Last Accessed: " & fil.DateLastAccessed
Debug.Print "File Parent Folder: " & fil.ParentFolder
Debug.Print "File Type: " & fil.Type
Debug.Print "File Path: " & fil.path
Debug.Print "File Short Name: " & fil.ShortName
Debug.Print "File Short Path: " & fil.ShortPath
Debug.Print "File Extension: " & fso.GetExtensionName(fil)
Debug.Print "File Version: " & fso.GetFileVersion(fil)
 
'To Copy a File (Copy C:\Windows\System32\Calc.exe ==> C:\Dell\Copy.exe)
fil.Copy ("C:\Dell\Copy.exe")       'OR
fso.CopyFile "C:\Windows\System32\Calc.exe", "C:\Dell\Copy.exe", True
 
'To Delete a File (C:\Dell\IP.txt)
Set fil = fso.GetFile("C:\Dell\IP.txt")
fil.Delete True     'OR
fso.DeleteFile "C:\Dell\IP.txt", True
 
'To Move a File (C:\Dell\Move_From.txt ==> C:\Test\Move_To.txt
Set fil = fso.GetFile("C:\Dell\Move_From.txt")
fil.Move "C:\Test\Move_To.txt"      'OR
fso.MoveFile "C:\Dell\Move_From.txt", "C:\Test\Move_To.txt"

File Properties OUTPUT:

File Created on: 9/11/2007 2:18:54 PM
File Size: 114,688 bytes
File Drive: C:
File Name: calc.exe
File Name: calc.exe
File Last Modified: 8/4/2004 5:00:00 AM
File Last Accessed: 2/15/2008 11:30:31 AM
File Parent Folder: C:\WINDOWS\system32
File Type: Application
File Path: C:\WINDOWS\system32\calc.exe
File Short Name: Calc.exe
File Short Path: C:\Windows\System32\Calc.exe
File Extension: exe
File Version: 5.1.2600.0