[Gambas-user] Size Multiple Files with FileProperties

[Charlie]

*This code may help.
*Public Sub Form_Open()
Dim sPath As String = User.Home &/ "Desktop"
Dim sFileList As String[]
Dim sTemp As String
Dim stStat As Stat
sFileList = Dir(sPath)
For Each sTemp In sFileList
  stStat = Stat(sPath &/ sTemp)
  Print sTemp & Space(50 - Len(sTemp)) & " Last Modified " &
stStat.LastModified & " - Size " & stStat.Size & " bytes"
Next
End 



--
View this message in context: http://gambas.8142.n7.nabble.com/Size-Multiple-Files-with-FileProperties-tp55443p55458.html
Sent from the gambas-user mailing list archive at Nabble.com.