MS Small Basic: files and directories (code)


file3

To learn programming, you must program, program and program.
I took several short exercises of the Curriculum and wrote these into a single program.
This exercise includes objects: ImageList; Network and File
Chapters 2.6 and 3.1 of the Curriculum Tutorial

  1. GraphicsWindow.Title = “Imagen”
  2. rutaImagen = “C:\Users\carlos\Pictures\conchilas.jpg”
  3. Imagen = ImageList.LoadImage(rutaImagen)
  4. GraphicsWindow.Width=ImageList.GetWidthOfImage(rutaImagen)
  5. GraphicsWindow.Height=ImageList.GetHeightOfImage(rutaImagen)
  6. GraphicsWindow.DrawImage(Imagen, 0, 0)
  7. ‘ Fin
  8.  
  9. rutaarchivo1= “http://download.microsoft.com/download/9/0/6/90616372-C4BF-4628-BC82-BD709635220D/Introducing%20Small%20Basic.pdf”
  10. ArchivoDescargado= Network.DownloadFile(rutaarchivo1)
  11. TextWindow.WriteLine(” Archivo descargado:   ” + ArchivoDescargado)
  12. ‘ Fin
  13.  
  14. rutaarchivo2= “http://download.microsoft.com/”
  15. ContenidoPaginaWeb = Network.GetWebPageContents(rutaarchivo2)
  16. TextWindow.WriteLine(“Contenido de la pagina:  “)
  17. TextWindow.WriteLine(ContenidoPaginaWeb)
  18. ‘ Fin
  19.  
  20. TextWindow.WriteLine(” El objeto File  “)
  21. rutaarchivo3= “c:\Users\carlos\temp\SubdirectorioTemp\mio.txt”
  22. TextWindow.WriteLine(“Escribir Contenido” + File.WriteLine(rutaarchivo3, 1, “Boca es un gran equipo de futbol”))
  23. TextWindow.WriteLine(“Agregar contenido” + File.AppendContents(rutaarchivo3, ” y ademas gano muchos trofeos”))
  24. TextWindow.WriteLine(“Leer contenido=  ” + File.ReadContents(rutaarchivo3))
  25. ‘ Fin
  26.  
  27. As Nonki says, to learn programming, program and program.
    I took several short exercises of the Curriculum and wrote these into a single program.
    This exercise includes objects: ImageList; Network
    and File
    Chapters 2.6 and 3.1 of the Curriculum
    Keep in mind that the paths of the files and directories must be such as we have in our physician C:
    Perhaps someone more novice than me, this will serve.
    regards
  28.  
  29.  
  30. rutaArchivoOrigen = “c:\Users\carlos\temp\SubdirectorioTemp\mio.txt”
  31. rutaArchivoDestino = “C:\Users\carlos\temp\SubdirectorioTemp\mover.txt”
  32. rutaDirectorio= “C:\Users\carlos\temp\SubdirectorioTemp”
  33. TextWindow.WriteLine(“Copiar archivo de operacion: ” +File.CopyFile(rutaArchivoOrigen,rutaArchivoDestino))
  34. TextWindow.WriteLine(” Archivos en el directorio:  ” + File.GetFiles(rutaDirectorio))
  35. ‘ Fin
  36.  
  37. rutaDirectorio1 = “C:\Users\carlos\temp\Small Basic”
  38. TextWindow.WriteLine(“Crear directorio:  ” + File.CreateDirectory(rutaDirectorio1))
  39. rutaDirectorio2 = “C:\Users\carlos\temp”
  40. TextWindow.WriteLine(“Directorios:  “+ File.GetDirectories(rutaDirectorio2))
  41. ‘ Fin
  42. TextWindow.WriteLine(” Ultimo error “)
  43. rutaarchivo4 = “c:\Users\carlos\temp\SubdirectorioTemp\mio.txt”
  44. TextWindow.WriteLine(” Operacion WriteLine: ” + File.WriteLine(rutaarchivo4, 1, ” como esta ? “))
  45. If File.LastError = ” ” Then
  46.   TextWindow.WriteLine(“La operacion se completo con exito”)
  47. Else
  48.   TextWindow.WriteLine(File.LastError)
  49. EndIf
  50. ‘Fin

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s