Private Sub Command1_Click()
FullFileName = "c:\test\a.txt"
'FileLen返回文件的大小,以字节为单位
If FileLen(FullFileName) >10240 Then
'Kill删除指定文件
Kill (FullFileName)
End If
End Sub
你实例化一个文件对象,就可以获取这个文件的相关属性了,VB.NET实例,以你的文件为例:Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定义并实例化FileInfo对象。length就是它的大小!
label1.Text = "文件大小为: " &sourcefileinfo.Length &"字节"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)