Code: Select all
#OFN_PATHMUSTEXIST | #OFN_FILEMUSTEXIST to OpenFileRequester()
#OFN_PATHMUSTEXIST | #OFN_OVERWRITEPROMPT to SaveFileRequester()
c ya,
nco2k
Code: Select all
#OFN_PATHMUSTEXIST | #OFN_FILEMUSTEXIST to OpenFileRequester()
#OFN_PATHMUSTEXIST | #OFN_OVERWRITEPROMPT to SaveFileRequester()
Code: Select all
Pattern$ = "Text (*.txt)|*.txt;*.bat|PureBasic (*.pb)|*.pb|All files (*.*)|*.*"
Pattern = 0 ; use the first of the three possible patterns as standard
File$ = SaveFileRequester("Please choose file to save", StandardFile$, Pattern$, Pattern)
;This next block be removed if #OFN_OVERWRITEPROMPT was supported.
savefile=#IDOK
If FileSize(File$)>-1
msg$="The file you selected already exists."+#CRLF$
msg$+"Click OK to overwrite it, or Cancel to abort.")
savefile=MessageRequester("File exists!",msg$,#MB_OKCANCEL)
EndIf
If savefile=#IDOK
;Save routine.
EndIf