forum.boolean.name - Ошибка записи

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

Код:

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