Set objFSO = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count = 0 Then
Wscript.Echo "用法:" & vbcrlf & objFSO.GetFile(Wscript.ScriptFullName).Name & " [drive:][path][filename]"
Wscript.Quit
Else
PathFile = WScript.Arguments(0)
End If
Path = objFSO.GetFile(pathfile).ParentFolder & "\"
File = objFSO.GetFile(pathfile).Name
Ext = "." & objFSO.GetExtensionName(PathFile)
If Not UCase(Ext) = ".EXE" Then
If Not UCase(Ext) = ".DLL" Then
MsgBox "仅支持 exe 和 dll 格式的文件。",48,"警告"
Wscript.Quit
End If
End If
Dim objSHELL
Set objSHELL = CreateObject("Shell.Application")
Dim objPath, objFile, objName, Arlt, Name
Set objPath = objSHELL.NameSpace(Path)
Set objFile = objPath.ParseName(File)
For i = 0 To 300
If objPath.GetDetailsOf(,i) = "文件说明" Then Description = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "文件版本" Then FileVer = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "产品名称" Then Name = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "产品版本" Then Version = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "版权" Then CopyRight = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "大小" Then Size = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "修改日期" Then Modified = objPath.GetDetailsOf(objFile, i)
If objPath.GetDetailsOf(,i) = "语言" Then Language = objPath.GetDetailsOf(objFile, i)
Next
MsgBox "文件说明 : " & Description & vbcrlf & _
"文件版本 : " & FileVer & vbcrlf & _
"产品名称 : " & Name & vbcrlf & _
"产品版本 : " & Version & vbcrlf & _
"版 权 : " & CopyRight & vbcrlf & _
"大 小 : " & Size & vbcrlf & _
"修改日期 : " & Modified & vbcrlf & _
"语 言 : " & Language ,64,File & " 属性"
Set objFSO = Nothing
Set objSHELL = Nothing
保存为GetFileDetail.vbs,然后直接拖动exe或dll的文件至这个脚本上即可。
由于“原始文件名”无法获取到,所以代码中未加入。
在 Windows 11 中,您可以通过以下步骤查看 Command Prompt(CMD)的属性:打开 CMD:按 Windows + X 键,然后选择“Windows PowerShell(管理员)”或“命令提示符(管理员)”。
右键单击 CMD 图标,然后选择“属性”。
在“快捷方式”选项卡中,您可以查看 CMD 的目标路径,快捷方式位置等信息。
在“兼容性”选项卡中,您可以设置兼容性选项,例如兼容性模式,高 DPI 设置等。
在“安全”选项卡中,您可以查看和管理 CMD 的安全属性,例如查看和修改文件夹权限。
希望这些信息能帮助您。
打开cmd,输入“attrib D\软件\QQ”然后cmd会回复给你一些字母:
R 只读文件属性。
A 存档文件属性。
S 系统文件属性。
H 隐藏文件属性。
I 无内容索引文件属性。
如果回复给你就是空空的一行,没有字母,那么该文件夹就是一个普通文件夹。
同理输入attrib e:\qq\qq.exe,可以查看文件的属性。
——————————————————————————
attrib用法说明,这就是题外话了:
比如E盘有个1.txt文件
打开cmd:
attrib e:\1.txt +s +h意思是给1.txt添加系统文件属性(+s),并隐藏(+h)
attrib e:\1.txt -s -h意思是给1.txt取消系统文件属性(-s),并显示(-h)
还有,怎么没分,开玩笑(>*.*<)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)