Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- public sub Clasificar_Organizar()
- ...
- ...
- 'lista de estrategias de crear comandos diponibles...
- GenerarListaEstrategisasCrearComandosDisponibles()
- 'lectura del fichero de datos
- 'crear listado de comandos
- ' por cada linea del fichero de datos, se crea un comando con sus caracteristicas
- For Each linea In Split(File.Load(User.Home & "/.OrganizadorDescargas/reglas.dat"), "\n")
- palabras = Split(linea, gb.Tab)
- If palabras.count <> 0 Then
- comandoTmp = SelectorEstrategias.operar(palabras[3], linea) 'palabras[3] es la accion, al enviarla como parametro da listaEstrategiasDisponibles duelve la Estrategia
- 'ejecuto el comando
- comandoTmp.ejecutar()
- Endif
- Next
- Message.Info(("Terminado de ejecutar la clasificación y ordenación de ficheros"))
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement