『壹』 EXCEL取得文件名称 大小 时间
VBA dim fso,folder,filecount, fnset fso=createobject("Stripting.FilesSystemObject")set folder=fso.getfolder("d:\text")set filecount=folder.filesfor each fn in filecountdebug.print "文件名:" & fn.namedebug.print "路径:" & fn.pathdebug.print "创建时间:" & fn.datecreateddebug.print "最后访问时间:" & fn.datelastaccesseddebug.print "最后修改时间:" & fn.datelastmodifieddebut.print "文件大小:(B):" & fn.sizenext
『贰』 mfc excel 文件如何获取大小
这是一个专业性的问题，我对这个真不太明白，我觉得你可以上网查一下看有没有。迟早过程我再一个你问问微机老师，或者说电脑方面的朋友。他们知道文件如何获取大小。
『叁』 提取文件夹中 视频文件的文件名、大小、时长等信息，形成EXCEL表格文件清单
1、文件空白处-右击：查看-详细信息。
2、没有视频时长时：在最上右击：
『肆』 怎么用Excel的VBA获取本文件的属性，查看本文件有多大
你好，代码如下：
第一句获取文件大小
第二句填充“A1”单元格
Submain()iSize=Format(FileLen(ActiveWorkbook.FullName)/1048576,"0.00")Range("A1").Value=iSize&"MB"EndSub
『伍』 如何批量提取文件夹里的文件名和大小，最好能做成EXCEL格式
先打开dos命令行窗口，打开方法是点开始——运行——输入cmd，然后输入x:（x为盘符，比如你的文件在e盘那么x就是e），回车;cdxxxxxxx（几个x表示目录名称，如果不好输可用tab键切换），回车，这一步也许要重复几次。将当前目录变成你想处理的目录后，最后输入dir*.*/s/a/l>1.txt回车，文件名就都在1.txt了，是一行一个文件名的，复制到excel就可以用了
『陆』 Excel怎么提取盘里的文件夹的名称和大小
可以用命令提示符，输出重定向。 输入命令 dir > a.txt 直接列出当前目录下的文件名和大小，在当前目录新建A.TXT文件，将列出内容保存其中。 dir >> a.txt 直接列出当前目录下的文件名和大小，将列出内容添加其中。
『柒』 excel 比较复杂的获取文件大小宏代码（完整代码）谢谢！
在工作表名称的标签上点击鼠标右键先查看代码,粘贴下面的代码到弹出的VBA编辑窗口,关闭VBA编辑窗口,返回工作表.按ALT+F8选中该宏 执行Sub GetSize()Dim iPath As String, ExArr, FZArr(), fp, fs, fIf Range("A1") = "" Then Exit SubiPath = "f:\" & Left(Range("A1"), 4)ExArr = Split("txt,exe,doc", ",")If Dir(iPath, vbDirectory) = vbNullString Then Exit SubSet fs = CreateObject("Scripting.FileSystemObject")For i = 0 To 2 fp = iPath & "\" & Range("A1") & "." & ExArr(i) If Not Dir(fp) = vbNullString Then Set f = fs.getfile(iPath & "\" & Range("A1") & "." & ExArr(i)) n = n + 1 ReDim Preserve FZArr(1 To n) FZArr(n) = ExArr(i) & ":" & WorksheetFunction.RoundUp(f.Size / 1024, 0) End IfNextRange("B1") = Join(FZArr)End Sub
『捌』 请教下高手如何用EXCEL获取文件属性的大小
Dim TStr, Fstr As StringTStr = InputBox("请输入文来件自或文件夹的路径：", "提示", "C:\") 'ChDrive Left(TStr, 1)ChDir Left(TStr, InStrRev(TStr, "\") – 1)Fstr = Dir(TStr)If Len(Fstr) Then Range("B1").SelectActiveCell.FormulaR1C1 = "找到该文件" & FileLen(Fstr) '加多如果找到改文件就在,Range("D1").Select输出文件的大小Else Range("C1").SelectActiveCell.FormulaR1C1 = "文件不存在"End If返回的是多少字节
『玖』 Excel提取目录怎么用
写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能否对你有帮助。1.添加VBA代码，选择新插入的模块后，插入以下代码Sub getpath() Range("A2:C1000").ClearContents '清空A2：C1000列 On Error Resume Next Dim shell As Variant Set shell = CreateObject("Shell.Application") Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址 Set shell = Nothing If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序 Exit Sub Else gg = filePath.Items.Item.Path End If Set obj = CreateObject("Scripting.FileSystemObject") '定义变量 Set fld = obj.getfolder(gg) '获取路径 For Each ff In fld.Files '遍历文件夹里文件 m = m + 1 Cells(m + 1, 1) = ff.Name Cells(m + 1, 2) = ff.Path Cells(m + 1, 3) = ff.Size Cells(m + 1, 4) = ff.DateCreated NextEnd Sub2.运行宏（alt+F8），宏的名称为getpath
未经允许不得转载：山九号 » excel提取文件夹大小|请教下高手如何用EXCEL获取文件属性的大小
