home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_RunBasic_002.bas < prev    next >
BASIC Source File  |  2005-06-11  |  198b  |  7 lines
  1. ' Datum einer Datei
  2. File.Find( File.CommonProgramDirectory + "\\Hardcopy\\hardcopy.exe" )
  3. If File.NumberOfElements = 1 Then
  4.     Font.Size = 40
  5.     Image(0).DrawText( 0,0,0,0, File(0).HcDate )
  6. EndIf
  7.