这是专门处理Microsoft脚本运行时库的一系列技巧中的第3条。 在本技巧中,我们将向您展示如何返回与文件有关的特定属性,以及各种复制,移动和删除它们的方法。 该代码是不言自明的,因此我将直接跳入:
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 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
From: https://bytes.com/topic/access/insights/771526-microsoft-scripting-runtime-3-a