Predmet:Datum Fajla
PreuzmiIzvorni kôd (Visual Basic):Function File_Date(strFileName As String) As String
On Error GoTo Kraj
Dim strDate As String
Dim intcount As Integer
strDate = FileDateTime(strFileName)
intcount = InStr(1, strDate, " ", vbTextCompare)
File_Date = CDate(Mid$(strDate, 1, intcount))
Exit Function
Kraj:
MsgBox "Ne postoji Fajl"
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.