Public Function GetExeVersion(ByVal sFullName As String) As String ‘\u83b7\u53d6\u53ef\u6267\u884c\u6587\u4ef6\u7248\u672c\u53f7
Dim FSO As Object
GetExeVersion = “”
If Not FileExist(sFullName) Then Exit Function
Set FSO = CreateObject(“Scripting.FileSystemObject”)
GetExeVersion = FSO.GetFileVersion(sFullName)
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetExeInfo(ByVal sFullName As String) As String ‘\u83b7\u53d6\u53ef\u6267\u884c\u6587\u4ef6\u7684\u4fe1\u606f
Dim FSO As Object
GetExeInfo = “”
If Not FileExist(sFullName) Then Exit Function
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Dim oFile As Object
Set oFile = FSO.GetFile(sFullName)
GetExeInfo = oFile.Size ‘Type\/Attributes\/Name\/Path .etc
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetWindows() As String ‘\u83b7\u53d6 Windows
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
GetWindows = FSO.GetSpecialFolder(0)
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetSystem() As String ‘\u83b7\u53d6 System
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
GetSystem = FSO.GetSpecialFolder(1)
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetTemporary() As String ‘\u83b7\u53d6 Temporary
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
GetTemporary = FSO.GetSpecialFolder(2)
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetFileList(ByVal sFolder As String) As String ‘\u83b7\u53d6\u6587\u4ef6\u5939\u672c\u7ea7\u5185\u6240\u6709\u6587\u4ef6
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Dim oFolder As Object, oItem As Object, oCollection As Object
Dim sList As String
If FSO.FolderExists(sFolder) Then
Set oFolder = FSO.GetFolder(sFolder)
Set oCollection = oFolder.Files
‘Debug.Print oCollection.Count
For Each oItem In oCollection
sList = sList & oItem.Name
sList = sList & “|”
Next
GetFileList = sList
Else
GetFileList = “”
End If
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetFolderList(ByVal sFolder As String) As String ‘\u83b7\u53d6\u6587\u4ef6\u5939\u4e0b\u4e00\u7ea7\u6240\u6709\u5b50\u6587\u4ef6\u5939
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Dim oFolder As Object, oItem As Object, oCollection As Object
Dim sList As String
If FSO.FolderExists(sFolder) Then
Set oFolder = FSO.GetFolder(sFolder)
Set oCollection = oFolder.SubFolders
‘Debug.Print oCollection.Count
For Each oItem In oCollection
sList = sList & oItem.Name
sList = sList & “|”
Next
GetFolderList = sList
Else
GetFolderList = “”
End If
Set FSO = Nothing
End Function<\/p>\n\n\n\n
Public Function GetDrivesList() As String
Dim FSO As Object
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Dim oItem As Object, oCollection As Object
Dim sList As String
Set oCollection = FSO.Drives
For Each oItem In oCollection
‘Debug.Print oItem.SerialNumber
sList = sList & oItem.DriveLetter
sList = sList & “|”
Next
GetDrivesList = sList
Set FSO = Nothing
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"