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

Da Gambas-it.org - Wikipedia.

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"): 

Public Sub ToggleButton1_Click()

 Dim s As String

 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=" & User.Home &/ "Scrivania/nome_file" &
       "\nDeletionDate=" & Format(Now, "yyyy-mm-ddThh:nn:ss")
   If Not Exist(User.Home &/ ".local/share/Trash/files" &/ File.Name(User.Home &/ "Scrivania/nome_file"))
     Move User.Home &/ "Scrivania/nome_file" To User.Home &/ ".local/share/Trash/files" &/ File.Name(User.Home &/ "Scrivania/nome_file")
     File.Save(User.Home &/ ".local/share/Trash/info/nome_file.trashinfo", s)
   Else
   
 Else
   Move User.Home &/ ".local/share/Trash/files/nome_file" To User.Home &/ "Scrivania/nome_file"
 Endif

End


PAGINA IN COSTRUZIONE !

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Spostare_un_file_nel_Cestino_e_ripristinarlo_nella_sua_Cartella_di_origine&oldid=38970"