vb如何获取文件属性等信息

'工程-引用 “Microsoft Shell Controls And Automation”

Private Sub Command1_Click()

Dim oDLG

Dim pth As String

Dim Flname As String

Dim shl As Shell32Shell

Dim shfd As Shell32Folder

Dim s As String

Dim i As Integer

Set oDLG = CreateObject("MSComDlgCommonDialog")

With oDLG

DialogTitle = "打开文件"

Filter = "所有文件|"

MaxFileSize = 255

ShowOpen

If FileName <> "" Then

i = InStrRev(FileName, "\")

If i = 0 Then Exit Sub

Flname = Mid(FileName, i + 1)

Set shl = New Shell

Set shfd = shlNameSpace(Left(FileName, i - 1))

For i = 0 To 39

If shfdGetDetailsOf(0, i) <> "" And shfdGetDetailsOf(shfdItemsItem(Flname), i) <> "" Then

s = s & i & ":" & shfdGetDetailsOf(0, i) & ": " & shfdGetDetailsOf(shfdItemsItem(Flname), i) & Chr(10)

End If

Next i

MsgBox s, vbInformation, "文件属性"

End If

End With

Set oDLG = Nothing

End Sub

其实一般像这种要实现某些比较 特殊的/指向性功能 的程序都会有已经写好的python module，你只需要在网上搜一些相关的关键词就可以找到这些package下载下来直接用。

Accessing mp3 Meta-Data with Python

这个答案里面有提到几个module可以试一下，比较推荐的是eyeD3 — eyeD3 v079 (final)

Python OS模块

1重命名：osrename(old, new)

2删除：osremove(file)

3列出目录下的 文件 ：oslistdir(path)

4获取当前工作目录：osgetcwd()

5改变工作目录：oschdir(newdir)

6创建多级目录：osmakedirs(r"c:/python /test")

7创建单个目录：osmkdir("test")

8删除多个目录：osremovedirs(r"c:/python") #删除所给路径最后一个目录下所有空目录。

9删除单个目录：osrmdir("test")

10获取文件属性：osstat(file)

11修改文件权限与时间戳：oschmod(file)

12执行 *** 作系统 命令：ossystem("dir")

13启动新进程：osexec(), osexecvp()

14在后台执行程序：osspawnv()

15终止当前进程：osexit(), os_exit()

16分离文件名：ospathsplit(r"c:/python/ hellopy ") –> ("c://python", " hellopy ")

17分离扩展名：ospathsplitext(r"c:/python/ hellopy ") –> ("c://python//hello", "py")

18获取路径名：ospathdirname(r"c:/python/ hellopy ") –> "c://python"

19获取文件名：ospathbasename(r"r:/python/hellopy") –> "hellopy"

20判断文件是否存在：ospathexists(r"c:/python/hellopy") –> True

21判断是否是绝对路径：ospathisabs(r"/python/") –> False

22判断是否是目录：ospathisdir(r"c:/python") –> True

23判断是否是文件：ospathisfile(r"c:/python/hellopy") –> True

24判断是否是链接文件：ospathislink(r"c:/python/hellopy") –> False

25获取文件大小：ospathgetsize(filename)

26：osismount("c://") –> True

27搜索目录下的所有文件：ospathwalk()

[2shutil]

1复制单个文件：shultilcopy(oldfile, newfle)

2复制整个目录树：shultilcopytree(r"/setup", r"/backup")

3删除整个目录树：shultilrmtree(r"/backup")

[3tempfile]

1创建一个唯一的临时文件：tempfilemktemp() –> filename

2打开临时文件：tempfileTemporaryFile()

[4StringIO] #cStringIO是StringIO模块的快速实现模块

1创建内存 文件并写入初始数据 ：f = StringIOStringIO("Hello world!")

2读入内存文件数据：print fread() #或print fgetvalue() –> Hello world!

3想内存文件写入数据：fwrite("Good day!")

4关闭内存文件：fclose()

rm(list=ls())

path = 'J:/lab/EX29 --在R语言中进行文件（夹） *** 作'

setwd(path)

cat("file A\n", file="A") #创建一个文件A，文件内容是'file A','\n'表示换行，这是一个很好的习惯

cat("file B\n", file="B") #创建一个文件B

fileappend("A", "B") #将文件B的内容附到A内容的后面，注意没有空行

filecreate("A") #创建一个文件A, 注意会覆盖原来的文件

fileappend("A", rep("B", 10)) #将文件B的内容复制10便，并先后附到文件A内容后

fileshow("A") #新开工作窗口显示文件A的内容

filecopy("A", "C") #复制文件A保存为C文件，同一个文件夹

dircreate("tmp") #创建名为tmp的文件夹

filecopy(c("A", "B"), "tmp") #将文件夹拷贝到tmp文件夹中

listfiles("tmp") #查看文件夹tmp中的文件名

unlink("tmp", recursive=F) #如果文件夹tmp为空，删除文件夹tmp

unlink("tmp", recursive=TRUE) #删除文件夹tmp，如果其中有文件一并删除

fileremove("A", "B", "C") #移除三个文件

文件夹应该是没有只读的  只有文件才有只读属性

获取属性的话用DirectoryInfo类  然后访问Attributes属性按位获取 参考下面代码

DirectoryInfo di = new DirectoryInfo(@"d:\1");

if (diExists) {

if ((diAttributes & FileAttributesHidden) == FileAttributesHidden) {

ConsoleWriteLine("文件夹是隐藏的");

}

if ((diAttributes & FileAttributesReadOnly) == FileAttributesReadOnly) {

ConsoleWriteLine("文件夹是只读的");

}

}

复制粘贴到记事本，另存为xxbat，编码选ANSI，跟要处理的文件放一起运行/&cls

@echo off

rem 获取jpg、tif或mp4视频的基本属性信息

mode con lines=5000

set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%@% %z%

set ext=jpg tif mp4

set "outfile=\infocsv"

cd /d "%~dp0"

dir /a-d/b %ext% 2>nul|cscript -nologo -e:jscript "%~f0"

echo;%#% +%$%%$%/%@% %z%

pause

exit

/

var fso=new ActiveXObject('ScriptingFileSystemObject');

var sa=new ActiveXObject('ShellApplication');

while(!WSHStdInAtEndOfStream){

    var line=WSHStdInReadLine();

    var f=fsoGetFile(line);

    var filepath=fParentFolderPath;

    var filename=fName;

    var objFolder=saNameSpace(filepath);

    var objItem=objFolderParseName(filename);

    for(var i=0;i<=300;i++){

        var key=objFolderGetDetailsOf(null, i);

        var value=objFolderGetDetailsOf(objItem, i);

        if(value !='' && value != null){

            WSHecho(key+':'+value);

        }

    }

     WSHecho('----------------------------');

}

python获取文件对象f名称属性的 *** 作代码为:

OpenFile = open("filetxt","rt")

print(OpenFilereadline

OpenFileclose

360浏览器打不开

1、右击“鼠标”，选择“属性”

2、选择上面的“快捷方式”，点击“打开文件所在位置”。

3、双击“以浏览器版本号数字为名的目录”打开

4、找到“360修复工具”双击运行。

5、点击“一键修复”按钮。

6、找到“浏览器功能异常”勾选。

7、会确认是否修复，点击“修复”。

8、若修复完成过后，依然不能用，请重新安装。

网络信号差。uibot读取excel列失败以及其他情况均是网络信号差导致的。该软件是一款非常需要网络状况优秀的平台，在网络不佳的时，会导致此平台连接失败无法查看信息以及读取失败等情况，可将其更换网络为优秀网络即可。检查的英文名称为Check，定义为为验证航空器其功能是否符合经批准的标准而进行的工作。

以上就是关于vb如何获取文件属性等信息全部的内容，包括:vb如何获取文件属性等信息、如何用python获取音乐文件的属性、R、python的文件夹 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！