FSODim a As FileSystemObject
Dim b As File
Private Sub Command1_Click()
Set a = New FileSystemObject
On Error GoTo errdo
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
Set b = a.GetFile(strFileName)
Text1 = b.DateLastAccessed
Text2 = b.DateLastModified
errdo:
End Sub
Dim b As File
Private Sub Command1_Click()
Set a = New FileSystemObject
On Error GoTo errdo
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
Set b = a.GetFile(strFileName)
Text1 = b.DateLastAccessed
Text2 = b.DateLastModified
errdo:
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货