请求帮助：提取文件大小并保存。

1、增加引用：Microsoft Scripting Runtime

2、写自定义函数：

Function GetSize(MyPath As String) As Long

'功能说明:返回文件属性字符串。
'参数：MyPath：源文件名
Dim myFSO As New FileSystemObject
Dim myFile As File
If myFSO.FileExists(MyPath) = True Then
    Set myFile = myFSO.GetFile(MyPath)
    GetSize = Round(myFile.Size / 1000, 0)

Else
    MsgBox "文件不存在！"
    GetSize = 0

End If
End Function

3、调用时：

Me.大小.Value = GetSize(Me.路径.Value)