No.1
VBA用以文件管理方法，并没有被绝大多数人熟识，根据Excel开展文件操作也是一件总劝不会太难，说非常容易并不易的事情。
这节介绍一下怎样对计算机文件开展拷贝、挪动、删掉、等操作。
最先了解一个对象。
File对象，翻泽出来便是文件对象。
可以对文件开展拷贝、删掉、挪动、改动这些各种各样操作，而且可对获取文件的属性。
下面的图为对象的办法及其属性，要关键记牢，对文件开展操作十分关键。
No.2
实例
针对文件操作，最先要对文件系统软件有一个基本掌握，假如不清楚文件系统软件包括什么具体内容，那麼提议别学File对象，很难。
假如对Dos系统或Linux系统软件，娴熟运用文件操作，那麼学习培训File对象就十分简易了。
下面的图是紧紧围绕File对象作出了一个实例，包括了大部分方式运用和属性获取，假如彻底把握，那麼就对文件对象操作拥有一个很全方位的了解。
左边按键各自实行不一样的作用。
右边报表是获取某一文件以后列举其文件信息，如建立日期文件目录详细地址这些属性。
下面的图为实行环节中挑选文件提示框。
No.3
编码
怎样建立File对象
Dim fs, f
Set fs = CreateObject(\"scripting.FileSystemObject\")
Set f = fs.GetFile(FileName)界定2个自变量，各自给自变量取值。
自变量fs为概念的FileSystemObject对象给予对电子计算机文件系统软件的访问限制，自变量f回到一个Files对象。
在其中FileSystemObject是一个主要的文件管理信息系统对象，还可以完成对文件的操作，可是其方式真是太多，这节不做详细介绍。
关键看一下其下的GetFile方式，此方法将回到一个File对象，也就是这节的具体内容。
自变量f便是要开展各种文件操作的File对象。
函数公式：回到一个File对象
Public Function GetFileObject() As Object \'取文件返回File对象
Dim FileName As String
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then
.Filters.Clear
.Filters.Add \"文字文件\", \"*.txt\"
.Title = \"挑选文件\"
FileName = .SelectedItems(1)
Else
Set GetFileObject = Nothing
Exit Function
End If
End With
Dim fs
Set fs = CreateObject(\"scripting.FileSystemObject\")
Set GetFileObject = fs.GetFile(FileName)
Set fs = Nothing
End Function以上函数公式将回到一个File对象，执行命令后将开启一个文件选择符，挑选一个文字文件后回到被选文件对象，如果不挑选文件就回到一个空对象。
获取文件信息
Private Sub GetFileinfo() \'提取文件信息
Set f = GetFileObject\'启用获取File对象函数公式
If f Is Nothing Then GoTo Ex100\'假如对象是Nothing撤出
Dim sh As Worksheet, cell As Range, xcell As Range
Set sh = ActiveSheet
Set cell = sh.Range(\"C4:C15\")
Dim infoArr(0 To 11), i As Integer
For i = 0 To cell.Rows.Count
Select Case i
Case 0
infoArr(0) = f.Attributes\'文件属性
Case 1
infoArr(1) = f.datecreated\'建立日期
Case 2
infoArr(2) = f.datelastaccessed
Case 3
infoArr(3) = f.datelastmodified
Case 4
infoArr(4) = f.drive\'控制器
Case 5
infoArr(5) = f.Name\'文件名
Case 6
infoArr(6) = f.parentFolder
Case 7
infoArr(7) = f.Path\'文件途径
Case 8
infoArr(8) = f.shortname
Case 9
infoArr(9) = f.shortpath
Case 10
infoArr(10) = f.Size\'文件尺寸
Case 11
infoArr(11) = f.Type\'文件种类
End Select
Next i
Set cell = cell.Item(1).Offset(0, 2).Resize(cell.Rows.Count, 1)
cell = Application.WorksheetFunction.Transpose(infoArr)
Ex100:
Set f = Nothing
End Sub
彻底了解并学好上边的编码，就对文件操作有一个基本上了解了，在实践过程中继续学习，迅速便会了解操作电子计算机内的文件信息。
制做一个文件智能管理系统就可以大展身手了。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
