Показать сообщение отдельно
Старый 05.12.2013, 13:23   #1
Artfrost
AnyKey`щик
 
Регистрация: 02.11.2009
Сообщений: 9
Написано 2 полезных сообщений
(для 2 пользователей)
Ошибка/Невозможность записи файла

Ребят подскажите, что нужно предпринять в такой ситуации:
Программа запущена с внешнего источника (внешний жёсткий, флешка и тп)
программа сохраняет собственные данные в файл расположенный подле неё, всё прекрасно до момента дисконнекта носителя с которого она запускалась, если диск отключить и потом вновь подключить - программа теряет возможность записи в файл...
Enumeration
	#Window_Main
	#Button
EndEnumeration

OpenWindow(#Window_Main,500,400,120,70,"test")
ButtonGadget(#Button, 10,10,60,20,"save")

Procedure save()
	Define.l file = CreateFile(#PB_Any, "test.txt",#PB_File_NoBuffering)
	If IsFile(file)
		WriteStringN(file,"test")
		;.......
		CloseFile(file)
	Else
		MessageRequester("Ошибка!","Невозможно сохранить файл",#MB_ICONWARNING)
	EndIf
EndProcedure
    
Repeat
	
	Select WindowEvent()
  	    Case #PB_Event_Gadget		
        	Select EventGadget()    
  				Case #Button
  					save()
  
  			EndSelect
  			
  		Case #PB_Event_CloseWindow	       	
			Select EventWindow()
				Case #Window_Main
					End
			EndSelect
			
	EndSelect
  
	Delay(1)
  
ForEver
Вложения
Тип файла: exe test.exe (22.5 Кб, 991 просмотров)

Последний раз редактировалось Artfrost, 05.12.2013 в 15:29.
(Offline)