[Ayuda] Como puedo pasar un batch a VB 10

[sabeeee]

Código [Seleccionar] Expandir


::Sistema de UPX::
::Variables::
::Configuracion de compresion::
set param=--best
::Codigo
for /R %%x in (*.*) do (
upx.exe "%param%" "%%x"
)


O sino ayúdenme a hacer esto nomas, lo de las variables no es tan importante, ya que para el uso que le voy a dar es inútil.

Código [Seleccionar] Expandir


::Funcionamiento
::Lista todos los archivos de las subcarpetas y los guarda en la variable "%%x"
for /R %%x in (*.*) do (
upx.exe --best "%%x"
)


Ese no es el codigo completo, solo pido una ayuda para empezar por favor.

[Eleкtro]

solo pido una ayuda para empezar

Lo que pretendes hacer es muy sencillo, estoy seguro de que si lees un poco no te costará llevarlo a cabo:

⇲ Estos son los métodos que necesitarás utilizar:

• System.IO.Directory.GetFiles(String, String, SearchOption) - MSDN
  Returns the names of files (including their paths) that match the specified search pattern in the specified directory, using a value to determine whether to search subdirectories.


• System.Diagnostics.Process.Start(String, String) - MSDN
  Starts a process resource by specifying the name of an application and a set of command-line arguments, and associates the resource with a new Process component.

Si tienes dudas, muestra el código con tu progreso, y con gusto te corregiré(mos) el código.

PD: Las dudas sobre VisualBasic.Net, van en la sección de .Net

Saludos!

[sabeeee]

Lo que pretendes hacer es muy sencillo, estoy seguro de que si lees un poco no te costará llevarlo a cabo:

⇲ Estos son los métodos que necesitarás utilizar:

• System.IO.Directory.GetFiles(String, String, SearchOption) - MSDN
  Returns the names of files (including their paths) that match the specified search pattern in the specified directory, using a value to determine whether to search subdirectories.


• System.Diagnostics.Process.Start(String, String) - MSDN
  Starts a process resource by specifying the name of an application and a set of command-line arguments, and associates the resource with a new Process component.

Si tienes dudas, muestra el código con tu progreso, y con gusto te corregiré(mos) el código.

PD: Las dudas sobre VisualBasic.Net, van en la sección de .Net

Saludos!

Gracias.
---
Esto es lo que primero conseguí

Código [Seleccionar] Expandir

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Process.Start("upx.exe", "-d AAC.dll")
   End Sub
End Class

Nuevo:

Código [Seleccionar] Expandir

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents Label1 As System.Windows.Forms.Label

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(138, 34)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(40, 13)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Espere"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(336, 102)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "howto_net_start_notepad_wait"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Activated
        ' Set start information.
        Dim start_info As New ProcessStartInfo("upx.exe", "--best *.*")
        start_info.UseShellExecute = False
        start_info.CreateNoWindow = True

        ' Make the process and set its start information.
        Dim proc As New Process
        proc.StartInfo = start_info

        ' Start the process.
        proc.Start()

        ' Wait until Notepad exits.
        proc.WaitForExit()
        Me.Close()
    End Sub
End Class
Me las arregle con un código que encontré por allí y con unas modificaciones conseguí hacer esto, pero sigo sin entender System.IO.Directory.GetFiles

[Eleкtro]

sigo sin entender System.IO.Directory.GetFiles

Código (vbnet) [Seleccionar] Expandir


Imports System.IO

Dim files As IEnumerable(Of FileInfo) =
   From filepath As String
   In Directory.GetFiles(".\", "*", SearchOption.AllDirectories)
   Select New FileInfo(filepath)


For Each fInfo As FileInfo In files

   MessageBox.Show(fInfo.FullName)

Next fInfo

Como te dije era algo facil, solo queria que leyeses un poco para entenderlo.

EDITO: Recuerda encerrar entre comillas dobles los nombres de archivo que le pases comoa rgumento al proceso, por los espacios en blanco.

saludos!

[sabeeee]

Código (vbnet) [Seleccionar] Expandir


Imports System.IO

Dim files As IEnumerable(Of FileInfo) =
   From filepath As String
   In Directory.GetFiles(".\", "*", SearchOption.AllDirectories)
   Select New FileInfo(filepath)


For Each fInfo As FileInfo In files

   MessageBox.Show(fInfo.FullName)

Next fInfo

Como te dije era algo facil, solo queria que leyeses un poco para entenderlo.

EDITO: Recuerda encerrar entre comillas dobles los nombres de archivo que le pases comoa rgumento al proceso, por los espacios en blanco.

saludos!

Muchísimas gracias, eternamente agradecidos con ustedes.