VBA-目录及文件操作汇总

deweyfbi

mark！以后查阅方便~

liulang0808

六、filedialog文件对话框（第二部分）
（4）FileDialog.InitialFileName 属性
设置或返回一个 String 类型的值，代表文件对话框中初始显示的路径或文件名。可读/写
说明：在指定文件名时可以使用 '*' 和 '?' 通配符，但是指定路径时不能使用这些通配符。'*' 符号代表任意数量的连续字符，而 '?' 代表单个字符。例如，.InitialFileName = "c:\c*s.txt" 将返回“charts.txt”和“checkregister.txt”。
如果指定了路径而没有指定文件名，则对话框中将显示文件筛选器所允许的所有文件。
如果指定了位于初始文件夹中的某个文件，则对话框中只显示该文件。
如果指定了初始文件夹中不存在的某个文件名，则对话框中将不包含文件。在 InitialFileName 属性中指定的文件类型将覆盖文件筛选器的设置。
如果指定了无效路径，则使用上次使用的路径。如果使用无效路径，则会向用户显示警告消息。
将此属性设置为长度大于 256 个字符的字符串将导致运行时错误。

.InitialFileName = "d:\test1\test.txt" 建议大家测试下看看，看看对话框各个部分，特别是文件名位置的情况

（5）FileDialog.AllowMultiSelect 属性
如果允许用户从文件对话框中选择多个文件，则为 True。可读/写。
说明：此属性对“文件夹选取器”对话框或“另存为”对话框无效，因为用户永远无法从这些类型的文件对话框中选择多个文件。

（6）FileDialog.Show 方法
显示文件对话框并返回一个 Long 类型的值，指示用户按下的是“操作”按钮 (-1) 还是“取消”按钮 (0)。在调用 Show 方法时，在用户关闭文件对话框之前不会执行其他代码。在“打开”和“另存为”对话框中，在使用了 Show 方法后会立即使用 Execute 方法执行用户操作。

liulang0808

第七部分，部分属性相关的函数

（1）FileLen(pathname) 返回一个Long，代表一个文件的长度，单位是字节。

必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

说明：当调用 FileLen 函数时，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。

注意 若要取得一个打开文件的长度大小，使用LOF 函数（LOF 函数，返回一个Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位）。

（2）FileDateTime(pathname) 返回一个 Variant (Date)，此为一个文件被创建或最后修改后的日期和时间。必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

（3）GetAttr(pathname) 返回一个 Integer，此为一个文件、目录、或文件夹的属性。

由 GetAttr 返回的值，是下面这些属性值的总和

常数	值	描述
vbNormal	0	常规
vbReadOnly	1	只读
vbHidden	2	隐藏
vbSystem	4	系统文件 在 Macintosh 中不可用。
vbDirectory	16	目录或文件夹
vbArchive	32	上次备份以后 在 Macintosh 中不可用.，文件已经改变
vbalias	64	指定的文件名是别名。 只在 Macintosh中可用。

说明

若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。例如，在下面的 And 表达式中，如果档案 (Archive) 属性没有设置，则返回值为零：

Result = GetAttr(FName) And vbArchive

（4）SetAttr pathname, attributes 设置文件属性

部分	描述
pathname	必要参数。用来指定一个文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。
Attributes	必要参数。常数或数值表达式，其总和用来表示文件的属性。

具体可设置属性同于getattr

liulang0808

第七部分，部分属性相关的函数-示例

Sub fileAttr()

    flnm = ThisWorkbook.Path & "\Test.xls"
    str1 = str1 & "文件大小：" & FileLen(flnm) & " 字节" & vbCrLf
    str1 = str1 & "文件被最后修改的时间：" & FileDateTime(flnm) & vbCrLf
    str1 = str1 & "文件属性：" & GetAttr(flnm) & vbCrLf
    MsgBox str1
    SetAttr flnm, vbReadOnly
    MsgBox "文件" & flnm & "设置了只读属性" & Chr(13) & "文件当前属性:" & GetAttr(flnm)
   
    SetAttr flnm, vbNormal
    MsgBox "文件" & flnm & "去除了只读属性"
End Sub

ione_fox

大过年的 感谢兄台的整理

km122712

感谢楼主分享，辛苦了。

aman1516

谢谢分享，非常好的总结

kszcs

要是有实例就更好了

我心依旧流云

感谢楼主的分享精神！

liulang0808

kszcs 发表于 2016-2-8 00:58
要是有实例就更好了

有代码的，放到文件里就可以用了