Přejít k obsahu webu
19.2.2019 / kaldy123

Visual Basic: File System File Object

The FSO File Object

The following uses some of the FSO File’s properties to display information about a file.

 

Private Sub displayFileInfo(ByVal fileName As String)
Dim fso As New FileSystemObject
Dim fileSpec As File
Dim strInfo As String
Set fileSpec = fso.GetFile(fileName)
strInfo = fileSpec.Name & vbCrLf
strInfo = strInfo & „Created: “
strInfo = strInfo & fileSpec.DateCreated & vbCrLf
strInfo = strInfo & „Last Accessed: “
strInfo = strInfo & fileSpec.DateLastAccessed & vbCrLf
strInfo = strInfo & „Last Modified: “
strInfo = strInfo & fileSpec.DateLastModified
MsgBox strInfo, vbInformation, „File Information“
Set fileSpec = Nothing
End Sub

Zanechat odpověď

Vyplňte detaily níže nebo klikněte na ikonu pro přihlášení:

Logo WordPress.com

Komentujete pomocí vašeho WordPress.com účtu. Odhlásit /  Změnit )

Google photo

Komentujete pomocí vašeho Google účtu. Odhlásit /  Změnit )

Twitter picture

Komentujete pomocí vašeho Twitter účtu. Odhlásit /  Změnit )

Facebook photo

Komentujete pomocí vašeho Facebook účtu. Odhlásit /  Změnit )

Připojování k %s

%d blogerům se to líbí: