Differenze tra le versioni di "Copiare ricorsivamente una cartella"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 5: | Riga 5: | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
| − | Private Const CARTELLA_PRINCIPALE As String = "<FONT Color= | + | Private Const CARTELLA_PRINCIPALE As String = "<FONT Color=darkgreen>''/percorso/della/cartella/principale/da/copiare/interamente''</font>" |
<FONT Color=gray>' ''Percorso della cartella ove copiare tutto il contenuto della cartella principale:''</font> | <FONT Color=gray>' ''Percorso della cartella ove copiare tutto il contenuto della cartella principale:''</font> | ||
| Riga 11: | Riga 11: | ||
| − | + | Public Sub Main() | |
Dim s As String | Dim s As String | ||
| Riga 24: | Riga 24: | ||
If Not Exist(CARTELLA_CLONE &/ s) Then Copy CARTELLA_PRINCIPALE &/ s To CARTELLA_CLONE &/ s | If Not Exist(CARTELLA_CLONE &/ s) Then Copy CARTELLA_PRINCIPALE &/ s To CARTELLA_CLONE &/ s | ||
Else | Else | ||
| − | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Se invece essa è una sotto-cartella della "Cartella principale", allora è ricreata (vuota) nella "cartella-clone":''</font> |
Mkdir CARTELLA_CLONE &/ s | Mkdir CARTELLA_CLONE &/ s | ||
Endif | Endif | ||
Next | Next | ||
| − | + | End | |
Versione attuale delle 14:02, 23 giu 2024
La copia ricorsiva di una Cartella consiste nel copiare ogni contenuto della Cartella medesima; non solo quindi i file presenti, ma anche tutte le sotto-cartelle presenti a vari sotto-livelli e tutti i file in esse contenuti.
In Gambas non esiste una funzione nativa per ottenere quanto sopra descritto.
Pertanto si dovrà creare un apposito algoritmo funzionale.
Mostriamo un esempio pratico:
Private Const CARTELLA_PRINCIPALE As String = "/percorso/della/cartella/principale/da/copiare/interamente"
' Percorso della cartella ove copiare tutto il contenuto della cartella principale:
Private Const CARTELLA_CLONE As String = "/tmp/cartella_clone"
Public Sub Main()
Dim s As String
' Crea la nuova Cartella ("cartella-clone"), ove saranno copiate ricorsivamente le eventuali sotto-cartelle e i file della "Cartella principale":
Mkdir CARTELLA_CLONE
' Effettua la ricerca ricorsiva nella "Cartella principale" di ogni eventuale suo contenuto:
For Each s In RDir(CARTELLA_PRINCIPALE, "*")
' Se è un file lo va a copiare nella corrispondente sotto-cartella della "cartella-clone":
If Not IsDir(CARTELLA_PRINCIPALE &/ s) Then
If Not Exist(CARTELLA_CLONE &/ s) Then Copy CARTELLA_PRINCIPALE &/ s To CARTELLA_CLONE &/ s
Else
' Se invece essa è una sotto-cartella della "Cartella principale", allora è ricreata (vuota) nella "cartella-clone":
Mkdir CARTELLA_CLONE &/ s
Endif
Next
End
