Differenze tra le versioni di "Spostare un file nel Cestino e ripristinarlo nella sua Cartella di origine"

Da Gambas-it.org - Wikipedia.
Riga 13: Riga 13:
  
 
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"):
 
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"
+
  Private nome_file As String = "nome_file" <FONT Color=gray>' ''Il nome di un file da cestinare''</font>
−
  Private postscriv As String
+
   
 
   
 
   
 
  Public Sub ToggleButton1_Click()
 
  Public Sub ToggleButton1_Click()
 
   
 
   
−
   Dim s, scrivania, trashfile, trashinfo, postscriv As String
+
   Dim s, scrivania, trashfile, trashinfo As String
 
    
 
    
 
   <FONT Color=green>scrivania</font> = User.Home &/ "Scrivania" &/ nome_file
 
   <FONT Color=green>scrivania</font> = User.Home &/ "Scrivania" &/ nome_file
Riga 32: Riga 32:
 
       Move <FONT Color=green>scrivania</font> To <FONT Color=red>trashfile</font> &/ nome_file
 
       Move <FONT Color=green>scrivania</font> To <FONT Color=red>trashfile</font> &/ nome_file
 
       File.Save(<FONT Color=blue>trashinfo</font> &/ nome_file & ".trashinfo", s)
 
       File.Save(<FONT Color=blue>trashinfo</font> &/ nome_file & ".trashinfo", s)
−
      postscriv = nome_file
 
−
    Else
 
−
<FONT Color=gray>' ''Se nella cartella ".local/share/Trash/files" esiste un file avente identico nome, allora aggiunge al file da cestinare un suffisso numerico, ma deve verificare anche se ci sono file che avevano identico nome e sono stati già cestinati ricevendo il suffisso numerico progressivo:''</font>
 
−
      If InStr(<FONT Color=green>scrivania</font>, ".") > 0 Then
 
−
        postscriv = File.Name(<FONT Color=green>scrivania</font>)
 
−
        Mid(postscriv, InStr(postscriv, ".")) = ".2." & File.Ext(scrivania)
 
−
        Move <FONT Color=green>scrivania</font> To <FONT Color=red>trashfile</font> &/ postscriv
 
−
        File.Save(<FONT Color=blue>trashinfo</font> &/ File.Name(postscriv) & ".trashinfo", s)
 
−
      Else
 
−
        postscriv = nome_file & ".2"
 
−
        Move <FONT Color=green>scrivania</font> To <FONT Color=red>trashfile</font> &/ postscriv
 
−
        File.Save(<FONT Color=blue>trashinfo</font> &/ postscriv & ".trashinfo", s)
 
−
      Endif
 
 
     Endif
 
     Endif
 
   Else
 
   Else
−
  <FONT Color=gray>' ''Ripristina il file cestinato nella sua Cartella originaria (in questo esempio: la "Scrivania":''</font>
+
  <FONT Color=gray>' ''Ripristina il file cestinato nella sua Cartella originaria (in questo esempio: la "Scrivania"):''</font>
−
     Move <FONT Color=red>trashfile</font> &/ postscriv To <FONT Color=green>scrivania</font>
+
     Move <FONT Color=red>trashfile</font> &/ nome_file To <FONT Color=green>scrivania</font>
 
  <FONT Color=gray>' ''Contestualmente distrugge, poiché ormai inutile, il file che fu creato nella ".local/share/Trash/files", collegato al file ora ripristinato:''</font>
 
  <FONT Color=gray>' ''Contestualmente distrugge, poiché ormai inutile, il file che fu creato nella ".local/share/Trash/files", collegato al file ora ripristinato:''</font>
−
     Kill <FONT Color=blue>trashinfo</font> &/ postscriv & ".trashinfo"
+
     Kill <FONT Color=blue>trashinfo</font> &/ nome_file & ".trashinfo"
 
   Endif
 
   Endif
 
   
 
   
 
  End
 
  End
−
 
−
 
−
<FONT Size=4 Color=red><B>PAGINA IN COSTRUZIONE !</b></font>
 

Versione delle 16:10, 22 ago 2024

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Spostare_un_file_nel_Cestino_e_ripristinarlo_nella_sua_Cartella_di_origine&oldid=39060"