Por lo que veo se daño el disco
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: undertaken en 2 Noviembre 2014, 17:46 PM
Hola buenas...quiero hacer un foto montaje para una despedida de soltero y quiero poner la cara de un amigo en el cuerpo de otra foto...
que programa me recomendais que quede bien el fotomontaje? gracias!!
Se me olvido añadir que no fuera photoshop...perdon!!
Cita de: patilanz en 8 Diciembre 2014, 02:06 AMEdito:
Yo recibo esto:
C:\Users\>for /R %%a in (*.*) do ("%%a")
No se esperaba %%a en este momento.
En windows 8.1 64bits
Cita de: engel lex en 8 Diciembre 2014, 01:49 AMUna carpeta con 3 archivos, nada mas, y en una PC de 4 nucleos de 4GHz y 4 gb de ram, en unos segundos se crashea.
cuando tiempo lo dejaste? dudo que sea crash, le acabas de decir que revise tooooooodos los archivos hasta donde se... solo la carpeta de windows debe tener unos 30mil, así que tal vez dure un rato
for /R %%a in (*.*) do ("%%a")
Cita de: Eleкtro en 7 Diciembre 2014, 10:01 AM
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!
Cita de: Eleкtro en 5 Diciembre 2014, 15:37 PM
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!
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
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
::Sistema de UPX::
::Variables::
::Configuracion de compresion::
set param=--best
::Codigo
for /R %%x in (*.*) do (
upx.exe "%param%" "%%x"
)
::Funcionamiento
::Lista todos los archivos de las subcarpetas y los guarda en la variable "%%x"
for /R %%x in (*.*) do (
upx.exe --best "%%x"
)