PureBasic Forums - English

Code: Select all

FullPath.s=GetCurrentDirectory()+"Text.txt"
  If CreateFile(0, FullPath)        
    For a=1 To 10
      WriteStringN(0, "Line "+Str(a)) 
    Next
    For a=1 To 10
      WriteString(0, "String"+Str(a))  
    Next
    CloseFile(0)                       
  Else
    MessageRequester("Information","may not create the file!")
  EndIf




Debug SetFileDate(FullPath,#PB_Date_Modified,ParseDate("%yyyy%mm%dd%hh%ii", "201408251415"))
DateCr = GetFileDate(FullPath, #PB_Date_Modified)
Debug Str(DateCr)
Debug FormatDate("%yyyy%mm%dd%hh%ii", DateCr)

Code: Select all

; PB 6.30

EnableExplicit

#DateMask$ = "%yyyy-%mm-%dd %hh:%ii:%ss"

Define file$, year.i, month.i, DateSet.q, DateGet.q

file$ = GetUserDirectory(#PB_Directory_Desktop) + "text.txt"

If CreateFile(0, file$) = 0
   MessageRequester("Error", "Can't create file" + #LF$ +
                             file$)
   End
EndIf

WriteString(0, "x")  
CloseFile(0)

year = 2025

Debug "Year: " + year
Debug ""

For month = 1 To 12
   DateSet = Date(year, month, 25, 14, 15, 0)
   
   If SetFileDate(file$, #PB_Date_Modified, DateSet) = 0
      MessageRequester("Error", "Can't set the date of file" + #LF$ +
                                file$)
      End
   EndIf
   DateGet = GetFileDate(file$, #PB_Date_Modified)
   
   If DateSet <> DateGet
      Debug "Month: " + month
      Debug "Set: " + FormatDate(#DateMask$, DateSet)
      Debug "Get: " + FormatDate(#DateMask$, DateGet)   ; 1 hour later from months 4 to 10
      Debug ""
   EndIf
Next