8,834
Expand|Select|Wrap|Line Numbers
- 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"
Expand|Select|Wrap|Line Numbers
- 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
