document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8. LabelNombreDirectorio.AutoResize = True \'para que muestre toda la ruta aunque sea muy larga
  9. End
  10.  
  11.  
  12. Public Sub DirChooser1_Change()
  13.  
  14. LabelNombreDirectorio.Text = DirChooser1.SelectedPath
  15.  
  16. End
  17.  
  18. Public Sub FileChooser1_Change()
  19.  
  20.   labelNombreElegido.text = FileChooser1.SelectedPath
  21.  
  22. End
');