Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Inherits InterfaceCrearComando
- Private comandotmpMover As New Mover
- Public Sub guard(valor As String) As Boolean
- If valor = ("Mover") Then
- Return True
- Else
- Return False
- Endif
- End
- Public Sub crearComando(linea As String) As Comando
- Dim palabras As New String[]
- Dim listaExtensiones As New String[]
- palabras = Split(linea, gb.Tab)
- If palabras.count = 0 Then
- Return Null
- Else
- comandotmpMover.nombre = palabras[0] 'nombre
- comandotmpMover.RutaDestino = palabras[1] 'carpeta destino
- listaExtensiones = Split(Replace$(palabras[2], ",", ";"), ";") 'extensiones
- comandotmpMover.extensiones = listaExtensiones
- Return comandotmpMover
- Endif
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement