elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Temas
Páginas: [1] 2
1  Programación / Scripting / crear carpetas y subcarpetas de acuerdo al nombre del archivo - batch en: 5 Octubre 2015, 23:15 pm
Hola a todos,

trato de generar un batch que realice lo siguiente:

- copiar archivos de origen a destino, donde los archivos son IMG_001, MUS_020, VID_002, IMG_021, FIL_010, etc... (todos con el mismo formato)

1. ingresar cantidad: me refiero a la cantidad de fomatos ej. sólo IMG y FIL.
2. ingresar los nombres de los archivos (recordar que tienen un formato. Va de a cuerdo a la cantidad anterior)
3. ingresar destino
4. La forma en que copiará los archivos son:
crea carpeta numero 001 (archivo IMG_001), dentro de la carpeta anteriormente creada, crea IMG y dentro de esta carpeta estará el archivo.

he estado avanzando un poquito. Espero su ayuda.

@echo off
set /p n=Introducir cantidad:
FOR %%i in (1,1,n) do (
set /p nom_erp=Introducir nombre de ERP: %%i
)
set /p destino=Ingresar ruta destino:

cd %destino%

pause
exit
2  Programación / Scripting / Renombrar archivos por lote segun caracter - batch en: 27 Agosto 2015, 21:39 pm
Hola,

Quisiera cambiar una letra o letras del nombre de un archivo.
Ejem:
nuevoarchivo.txt a nue_archivo.txt

tengo este código, el cual se que le falta algo para cumplir con el propósito.

Código
  1. @echo off
  2. cls
  3. echo Renombrar nombre de archivo PI04...
  4. for %%i in (*.txt) do (set fname=%%~ni) & call :renamefile
  5. goto :eof
  6.  
  7. :renamefile
  8. ren "%fname%.txt" "%fname/vo/_%.txt"
  9. pause
  10. cls
  11. goto :eof

gracias por el apoyo.
3  Seguridad Informática / Seguridad / colocar contraseña a varios archivos pdf (por lotes) en: 16 Junio 2015, 01:04 am
Hola a todos.

Quisiera saber si hay alguna forma de colocar contraseña a varios archivos pdf (por lotes). Imagino que con algunos comandos que desconozco se podrá ya que he visto que en algunas entidades (bancos) envian el estado de cuenta en archivo pdf con contraseña (numero de dni del propietario).

Espero su pronta respuesta y puedan despejar mi gran duda.

Gracias.

 :D

Mod: No escribir en mayúsculas
4  Programación / .NET (C#, VB.NET, ASP) / convertir calendario gregoriano a gps en: 10 Febrero 2015, 17:34 pm
Hola a todos, quisiera que me ayuden en poder adaptar el código para lo siguiente:

simulación calendario

ver contenido:  http://gps.topografia.upm.es/www/calactal.htm

tengo este codigo:

Código
  1. Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
  2.  
  3.        Dim vDia As String = DateTimePicker1.Value.Day
  4.        Dim vMes As String = DateTimePicker1.Value.Month
  5.        Dim vAño As String = DateTimePicker1.Value.Year
  6.  
  7.        txtday.Text = Juliandate(DateTimePicker1.Value)
  8.  
  9.    End Sub
  10.  
  11. Public Function Juliandate(ByVal dtdate As Date) As Integer
  12.  
  13.        Dim dtfirstmonthDAY As Date
  14.        Dim dttimepicker As Date
  15.  
  16.        dtfirstmonthDAY = DateSerial(Year(dtdate), 1, 1)
  17.        dttimepicker = dtdate
  18.        Return CInt(DateDiff(DateInterval.Day, dtfirstmonthDAY, dttimepicker)) + 1
  19.  
  20.    End Function
  21.  
  22. Friend ReadOnly GPSDictionary As Dictionary(Of Integer, Integer) = Me.GetGPSDictionary
  23.  
  24.    Private Function GetGPSDictionary() As Dictionary(Of Integer, Integer)
  25.  
  26.        Dim ThisYear As Integer = vAño
  27.        Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
  28.                                         Select DateTime.DaysInMonth(ThisYear, month)).Sum
  29.        Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
  30.        Dim Result As New Dictionary(Of Integer, Integer)
  31.        For Day As Integer = 1 To DaysInThisYear
  32.            Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
  33.                                              New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
  34.        Next Day
  35.        Return Result
  36.  
  37.    End Function

La observación está en la elección de años diferentes. Se que se le está poniendo un limite 1773 a 1825 que corresponde al 2014 pero que podria hacer en caso que quisiera otro año. Que otra lógica se podría pensar.

Gracias por su apoyo.


 :-*
  
5  Programación / .NET (C#, VB.NET, ASP) / CREAR ARCHIVO TXT DONDE GUARDA INFORMACIÓN DE LOS TEXTBOX en: 12 Diciembre 2014, 20:51 pm
Hola a todos!

No se si voy a lograr que me entiendan pero haré lo posible.

Quisiera que me ayuden en resolver una aplicación donde al escribir en varios textbox se guarde por más que se cierre la aplicación donde al volver a abrir la aplicación aparezca lo ultimo que se introdujo en los textbox. Mi idea es que en vez que se trabaje con base de datos sólo se cree un archivo txt oculto donde guarde esas ultimas entradas de la aplicación.
El problema es que como soy bien básica en programación, no se me ocurre como hacerlo.

Espero su ayuda.

Gracias.

 :)
6  Programación / .NET (C#, VB.NET, ASP) / EJECUTAR CMD EN APLICACIÓN .NET en: 11 Noviembre 2014, 15:39 pm
Buen día a todos, quisiera que me apoyen en poder ver cual es mi error ya que al momento de ejecutar la app se marca error en la linea txtResults.Text = SR.ReadToEnd.
La idea es que en vez que se muestre en la ventana del cmd, figure en el cuadro de texto txtResults y sería mucho mejor si fuera continuo o sea el resultado de ping 127.0.0.1 -t figure en el cuadro de texto.

Código
  1. Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
  2.        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
  3.        CMDThread.Start()
  4.    End Sub
  5.    Private Sub CMDAutomate()
  6.        Dim PROCESO As New Process
  7.        Dim INFO As New System.Diagnostics.ProcessStartInfo
  8.        INFO.FileName = "cmd"
  9.        INFO.RedirectStandardInput = True
  10.        INFO.RedirectStandardOutput = True
  11.        INFO.UseShellExecute = False
  12.        PROCESO.StartInfo = INFO
  13.        PROCESO.Start()
  14.        Dim SR As System.IO.StreamReader = PROCESO.StandardOutput
  15.        Dim SW As System.IO.StreamWriter = PROCESO.StandardInput
  16.        Dim comandoping As String = String.Concat("ping ", TextBox1.Text, ".", TextBox2.Text, ".", TextBox3.Text, ".", TextBox4.Text)
  17.        SW.WriteLine(comandoping)
  18.        SW.WriteLine("exit")
  19.        txtResults.Text = SR.ReadToEnd
  20.        SW.Close()
  21.        SR.Close()
  22.    End Sub

Gracias por todo. Saludos.
7  Programación / .NET (C#, VB.NET, ASP) / REDUCIR CÓDIGO.NET en: 7 Julio 2014, 23:08 pm
Hola a todos!
Estoy realizando una aplicación donde el cual tiene 3 botones en donde se ejecutan diferentes comandos en cada botón a un mismo archivo (la aplicación es un convertidor). La aplicación ya esta hecha, lo que pasa es que se repite el código varias veces, entonces quisiera saber como podría hacer para que  se realizo el evento click en tal botón entonces ejecutar cierto comando.

No se si me dejo entender. Pero de todas maneras adjuntaré el código completo.

pd. Mi problema también está en que no imprime en archivo de texto.

Código
  1. Imports System
  2. Imports System.IO
  3. Imports System.IO.StreamWriter
  4.  
  5. Public Class Form1
  6.    Inherits System.Windows.Forms.Form
  7.  
  8.    Private Results As String
  9.    Private Delegate Sub delUpdate()
  10.    Private Finished As New delUpdate(AddressOf UpdateText)
  11.  
  12.    Private Sub btnexaminar_Click(sender As Object, e As EventArgs) Handles btnexaminar.Click
  13.        Dim Dir As New FolderBrowserDialog
  14.        If Dir.ShowDialog = Windows.Forms.DialogResult.OK Then
  15.            TextBox1.Text = Dir.SelectedPath
  16.        End If
  17.    End Sub
  18.  
  19.    Private Sub btndat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndat.Click
  20.        Dim midirectorio As String = TextBox1.Text
  21.        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
  22.        If midirectorio = "" Then
  23.            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
  24.        Else
  25.            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\runpkr00.exe", midirectorio & "\runpkr00.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
  26.        End If
  27.        CMDThread.Start()
  28.  
  29.  
  30.    End Sub
  31.    Private Sub CMDAutomate()
  32.        Dim midirectorio As String = TextBox1.Text
  33.        Dim myprocess As New Process
  34.        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
  35.        StartInfo.FileName = "cmd"
  36.        StartInfo.RedirectStandardInput = True
  37.        StartInfo.RedirectStandardOutput = True
  38.        StartInfo.UseShellExecute = False
  39.        StartInfo.CreateNoWindow = True
  40.        myprocess.StartInfo = StartInfo
  41.        myprocess.Start()
  42.        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
  43.        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
  44.        Dim comando As String
  45.        Dim cmdir As String
  46.        Dim nombre As String
  47.  
  48.        For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchTopLevelOnly, "*.T01")
  49.  
  50.            nombre = My.Computer.FileSystem.GetName(file)
  51.            cmdir = "cd " & midirectorio
  52.            comando = "runpkr00.exe -d -s " & nombre
  53.            SW.WriteLine(cmdir)
  54.            SW.WriteLine(comando)
  55.            'Results = SR.ReadToEnd
  56.            'SW.Close()
  57.            'SR.Close()
  58.            'Invoke(Finished)
  59.            MessageBox.Show("Conversión a DAT culminada." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
  60.        Next
  61.        Results = SR.ReadToEnd
  62.        SW.Close()
  63.        SR.Close()
  64.        Invoke(Finished)
  65.  
  66.    End Sub
  67.  
  68.    Private Sub UpdateText()
  69.  
  70.        'If Me.InvokeRequired = False Then
  71.        Dim midirectorio As String = TextBox1.Text
  72.        Dim strStreamW As Stream = Nothing
  73.        Dim strStreamWriter As StreamWriter = Nothing
  74.        Dim fecha As String = DateTime.Now.ToString("dd MMM HHmmss")
  75.        Dim rutarchivo As String = String.Concat(midirectorio, "log-", fecha & ".txt")
  76.        Windows.Forms.Cursor.Current = Cursors.WaitCursor
  77.        strStreamW = File.Create(rutarchivo)
  78.        strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)
  79.        strStreamWriter.WriteLine(Results)
  80.        strStreamWriter.Close()
  81.        ' Else
  82.        '  Dim D As delUpdate = New delUpdate(AddressOf UpdateText)
  83.        ' Me.Invoke(D)
  84.        ' End If
  85.    End Sub
  86.  
  87.    Private Sub btnrinex_Click(sender As System.Object, e As System.EventArgs) Handles btnrinex.Click
  88.        Dim midirectorio As String = TextBox1.Text
  89.        Dim CMD As New Threading.Thread(AddressOf CMDAutomaterin)
  90.        If midirectorio = "" Then
  91.            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
  92.        Else
  93.            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\teqc.exe", midirectorio & "\teqc.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
  94.        End If
  95.        CMD.Start()
  96.    End Sub
  97.  
  98.  
  99.    Friend ReadOnly GPSDictionary As Dictionary(Of Integer, Integer) = Me.GetGPSDictionary
  100.    Private Function GetGPSDictionary() As Dictionary(Of Integer, Integer)
  101.  
  102.        Dim ThisYear As Integer = Now.Year
  103.        Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
  104.                                         Select DateTime.DaysInMonth(ThisYear, month)).Sum
  105.        Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
  106.        Dim Result As New Dictionary(Of Integer, Integer)
  107.  
  108.        For Day As Integer = 1 To DaysInThisYear
  109.            Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
  110.                                              New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
  111.        Next Day
  112.  
  113.        Return Result
  114.    End Function
  115.  
  116.    Private Sub CMDAutomaterin()
  117.        Dim midirectorio As String = TextBox1.Text
  118.        Dim myprocess As New Process
  119.        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
  120.        StartInfo.FileName = "cmd"
  121.        StartInfo.RedirectStandardInput = True
  122.        StartInfo.RedirectStandardOutput = True
  123.        StartInfo.UseShellExecute = False
  124.        StartInfo.CreateNoWindow = True
  125.        myprocess.StartInfo = StartInfo
  126.        myprocess.Start()
  127.        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
  128.        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
  129.        Dim comandodat As String
  130.        Dim comandorin As String
  131.        Dim cmdir As String
  132.        Dim nombre As String
  133.        Dim renombre As String
  134.  
  135.        For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchTopLevelOnly, "*.T01")
  136.  
  137.            nombre = Path.GetFileNameWithoutExtension(file)
  138.            renombre = Microsoft.VisualBasic.Left(nombre, Len(nombre) - 2) & "0"
  139.            Dim DayOfYear As Integer = Mid(nombre, 5, 3)
  140.            Dim semgps As Integer = Me.GPSDictionary(DayOfYear)
  141.  
  142.            cmdir = "cd " & midirectorio
  143.            comandodat = "runpkr00.exe -g -d " & nombre & ".t01"
  144.            comandorin = "teqc.exe +nav " & renombre & ".14n -O.int 5 -O.dec 5 -O.ag IGN-PERU -O.o CPG -week " & semgps & " -tr d " & nombre & ".tgd> " & renombre & ".14o"
  145.            SW.WriteLine(cmdir)
  146.            SW.WriteLine(comandodat)
  147.            SW.WriteLine(comandorin)
  148.            'Results = SR.ReadToEnd
  149.            ' SW.Close()
  150.            'SR.Close()
  151.            'Invoke(Finished)
  152.            MessageBox.Show("Conversión a RINEX culminada." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
  153.        Next
  154.        Results = SR.ReadToEnd
  155.        SW.Close()
  156.        SR.Close()
  157.        Invoke(Finished)
  158.  
  159.    End Sub
  160.  
  161.  
  162.  
  163.    Private Sub btntqc_Click(sender As Object, e As EventArgs) Handles btntqc.Click
  164.        Dim midirectorio As String = TextBox1.Text
  165.        Dim CMD As New Threading.Thread(AddressOf CMDAutomateqc)
  166.        If midirectorio = "" Then
  167.            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
  168.        Else
  169.            My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\teqc.exe", midirectorio & "\teqc.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
  170.        End If
  171.        CMD.Start()
  172.    End Sub
  173.  
  174.    Private Sub CMDAutomateqc()
  175.        Dim midirectorio As String = TextBox1.Text
  176.        Dim myprocess As New Process
  177.        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
  178.        StartInfo.FileName = "cmd"
  179.        StartInfo.RedirectStandardInput = True
  180.        StartInfo.RedirectStandardOutput = True
  181.        StartInfo.UseShellExecute = False
  182.        StartInfo.CreateNoWindow = True
  183.        myprocess.StartInfo = StartInfo
  184.        myprocess.Start()
  185.        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
  186.        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
  187.        Dim comandorin As String
  188.        Dim cmdir As String
  189.        Dim nombre As String
  190.        Dim renombre As String
  191.  
  192.        For Each file As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchTopLevelOnly, "*.T01")
  193.  
  194.            nombre = Path.GetFileNameWithoutExtension(file)
  195.            renombre = Microsoft.VisualBasic.Left(nombre, Len(nombre) - 2) & "0"
  196.  
  197.            If System.IO.File.Exists(midirectorio & "\" & renombre & ".14n") And System.IO.File.Exists(midirectorio & "\" & renombre & ".14o") Then
  198.                cmdir = "cd " & midirectorio
  199.                comandorin = "teqc.exe -nav " & renombre & ".14n +qc " & renombre & ".14o"
  200.                SW.WriteLine(cmdir)
  201.                SW.WriteLine(comandorin)
  202.                'Results = SR.ReadToEnd
  203.                'SW.Close()
  204.                'SR.Close()
  205.                'Invoke(Finished)
  206.                MessageBox.Show("Quality Check." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
  207.            Else
  208.                MessageBox.Show("Se necesitan de los archivos RINEX (14n y 14o)" & vbNewLine & "Solución: Clic en el Botón RINEX.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
  209.            End If
  210.        Next
  211.        Results = SR.ReadToEnd
  212.        SW.Close()
  213.        SR.Close()
  214.        Invoke(Finished)
  215.  
  216.    End Sub
8  Programación / .NET (C#, VB.NET, ASP) / ARREGLOS VISUAL.NET en: 27 Junio 2014, 23:38 pm
Hola, soy nueva con lo que es el desarrollo pero estoy intentando en que me salga un simulador de semana gps (referencia:  http://gps.geo.upm.es/www/calactal.htm) donde al colocar el día (del 1 al 365) me bote como resultado la semana gps que le corresponde: ejem:  034 corresponde a 1778. El código que generé y el cual no me funciona, es el siguiente:


           
Código
  1. Dim semanagps As Integer
  2.            Dim i As Integer = textbox1.text
  3.            Dim numdia(i) As Integer
  4.  
  5.            numdia(0) = Nothing  
  6.            numdia(1) = 1773          'si nos fijamos en el calendario la semana 1773
  7.            numdia(2) = 1773          'tiene del día 1 al 4 y las demás semanas tendrán
  8.            numdia(3) = 1773          'los siete días que comprende la semana, es por
  9.            numdia(4) = 1773          'ello que genero el for.
  10.            For i = 5 To 365 Step 1
  11.                For k = 1773 To 1825 Step 1
  12.                   For j = 1 To 7 Step 1
  13.                       numdia(i) = k + 1
  14.                    Next
  15.                Next
  16.            Next
  17.  
  18.            semanagps = numdia(i)

De repente mi lógica esta mal, quisiera que me apoyen por favor.

Gracias de antemano.


9  Programación / .NET (C#, VB.NET, ASP) / COMANDOS MULTIPLES - VB en: 12 Junio 2014, 18:48 pm
Hola a todos. Estoy intentando correr el cmd a través de un formulario pero no puedo realizar lo de comandos multiples.

Código
  1. If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then
  2.  
  3.            Dim archivo = My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
  4.            For Each file As String In archivo
  5.                'Dim archivo = My.Computer.FileSystem.GetFileInfo(File)
  6.  
  7.                Dim comando As String
  8.                Dim cmdir As String
  9.                cmdir = "cd " & midirectorio
  10.                comando = "runpkr00.exe -d " & file & ".t01"
  11.                Shell("cmd.exe /k" + cmdir + comando)  
  12.            next
  13. end if

como resultado me da:

El nombre de archivo, el nombre de directorio o la sintaxis de la etiqueta del volumen no son correctos.
C:\Users\rchaconr\Documents\Visual Studio 2013\Projects\CONVERSOR DATOS GPS\CONV
ERSOR DATOS GPS\bin\Debug>

y lo que deseo es que se ejecute

> cd midirectorio
c:\midirectorio>runpkr00.exe -d archivo.t01



Espero que me puedan entender y tener un poco de su ayuda. Muchas gracias
10  Programación / Programación Visual Basic / AYUDA! Extraer nombre y extension de archivo en: 6 Junio 2014, 17:34 pm
Hola a todos, quisiera apoyo con este codigo. Soy principiante en programacion y trato de entender.

La fin de este código es que tiene que ejecutar un programa (runpkr) a través de un comando por consola en todos los archivos que esten ubicados en la carpeta.

ejem:

DIRECTORIO
   - archivo1.t01
   - archivo2.t01

comando a ejecutar por consola en cada archivo:  runpkr00 -d archivo1.t01

Código
  1. Dim midirectorio As String = TextBox1.Text
  2.        If midirectorio = "" Then
  3.            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
  4.        Else
  5.  
  6.            Try
  7.  
  8.                My.Computer.FileSystem.CopyFile(
  9.                 "C:\Program Files\convert data\runpkr00.exe",
  10.                 midirectorio & "\runpkr00.exe",
  11.                Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
  12.                 Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
  13.            Catch ex As Exception
  14.                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
  15.  
  16.            End Try
  17.            If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then
  18.                For Each Archivo As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
  19.                    Console.WriteLine("runpkr00.exe -d" & Archivo)
  20.                Next
  21.            End If
  22.  
  23.        End If

Se que algo esta mal. Quisiera su apoyo.


Gracias. =)
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines