Copiare un file utilizzando gli oggetti DirView e FileView

Per copiare un file da una Cartella ad un'altra utilizzando gli oggetti DirView e FileView possiamo adottare un codice essenziale come il seguente:

Public Sub Form_Open()
 
' Mostra in "DirView" l'intero albero del file system:
 DirView1.Root = "/"
 
End
 
 
Public Sub DirView1_Click()
 
' Consente la visualizzazione in "FileView" dei file contnuti dalla cartella selezionata:
 FileView1.Dir = DirView1.Current
  
End


Public Sub FileView1_Click()

' Effettua nella cartella prescelta la copia del file selezionato:
 Copy DirView1.Current &/ FileView1.Current To "/percorso/della/cartella/ove/copiare/il/file" &/ FileView1.Current
 
End