Spostare un file nel Cestino e ripristinarlo nella sua Cartella di origine

I file cancellati sono spostati momentaneamente nel cosiddetto "Cestino" (Trash ).

Più precisamente essi vengono spostati nella Cartella del percorso nascosto ".local/share/Trash/files".
Inoltre, viene creato nella cartella ".local/share/Trash/info" un file che riporta alcune informazioni sul file cestinato.

In Gambas possiamo spostare un file nel Cestino e, volendo, ripristinarlo nella sua Cartella di origine, usando l'istruzione "MOVE".

Va considerato che, se un file, cestinato, possiede il medesimo nome di un file già presente nella Cartella User.Home &/ ".local/share/Trash/files", il sistema crea nella predetta Cartella un file con nome identico a quello già presente nella Cartella, aggiungendo però il suffisso ".n"; laddove "n" è un numero progressivo, considerando "1" il file preesistente.
Così, per esempio, se già avessimo nella Cartella User.Home &/ ".local/share/Trash/files" un file chiamato "nomefile", e, avendo creato altrove un file con il medesimo nome "nomefile", lo cestinassimo, il sistema sposterebbe tale file nella Cartella User.Home &/ ".local/share/Trash/files" rinominandolo "nomefile.2 ".
Ugualmente, se creassimo un ulteriore file avente nome "nomefile" e poi lo cestinassimo, avremmo nella Cartella User.Home &/ ".local/share/Trash/files" il file "nomefile.3" e così via.
Va fatto notare e va evidenziato che, tenuto conto del protocollo di spostamento dei file nel cestino - ossia nella Cartella User.Home &/ ".local/share/Trash/files" -, il sistema, qualora trovi in tale Cartella già un file avente il medesimo nome del file che si sta spostando (cestinando), aggiunge sempre il suffisso ".n" al file che viene spostano nella predetta Cartella User.Home &/ ".local/share/Trash/files".
Così, se nella Cartella User.Home &/ ".local/share/Trash/files" esistesse già un file chiamato "nomefile.2" (perché magari aveva in origine un nome doppione di un file che lì già era stato spostato), e se noi, avendo creato un file con il nome "nomefile.2", cestinassimo tale file, il sistema, trovando nella Cartella User.Home &/ ".local/share/Trash/files" il file preesistente con uguale nome (nomefile.2 ), sposterebbe il nostro nuovo ultimo file nella Cartella User.Home &/ ".local/share/Trash/files" rinominandolo con l'aggiunta del suffisso ".n", in questo caso: nomefile.2.2

Mostriamo un esempio pratico, nel quale cliccando su un ToggleButton si cestinerà un file presente nella Cartella "Scrivania"; cliccando nuovamente il file sarà ripristinato nella sua Cartella di origine ("Scrivania"):

Private nome_file As String = "nome_file" ' Il nome di un file da cestinare


Public Sub ToggleButton1_Click()

 Dim s, scrivania, trashfile, trashinfo As String
 
 scrivania = User.Home &/ "Scrivania" &/ nome_file
 trashfile = User.Home &/ ".local/share/Trash/files"
 trashinfo = User.Home &/ ".local/share/Trash/info"

 If ToggleButton1.Value Then
' Prepara il contenuto del file che sarà creato nella Cartella ".local/share/Trash/files", collegato al file originale cestinato:
   s = "[Trash Info]" &
       "\nPath=" & scrivania &
       "\nDeletionDate=" & Format(Now, "yyyy-mm-ddThh:nn:ss")
   If Not Exist(trashfile &/ File.Name(scrivania)) Then
     Move scrivania To trashfile &/ nome_file
     File.Save(trashinfo &/ nome_file & ".trashinfo", s)
   Endif
 Else
' Ripristina il file cestinato nella sua Cartella originaria (in questo esempio: la "Scrivania"):
   Move trashfile &/ nome_file To scrivania
' Contestualmente distrugge, poiché ormai inutile, il file che fu creato nella ".local/share/Trash/files", collegato al file ora ripristinato:
   Kill trashinfo &/ nome_file & ".trashinfo"
 Endif

End