@Echo OFF
 
Set "Var=Hello World"
Call ".\2.bat"
 
Pause&Exit

@Echo OFF
Echo Var=%VAR%
Exit /B 0

Public Class Form1
 
    Private Sub Form1_Load() Handles MyBase.Load
 
        With Me.DataGridView1
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .MultiSelect = False
            .Columns.Add("colImage", "Columna de Imagen")
            .Columns.Add("colInfo1", "Columna adicional 1")
            .Columns.Add("colInfo2", "Columna adicional 2")
            .Rows.Add({"C:\Imagen.jpg", "Info adicional 1", "Info adicional 2"})
        End With
 
    End Sub
 
    Private Sub DataGridView1_CellContentClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) _
    Handles DataGridView1.CellDoubleClick
 
        Dim value As String = DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(0).Value.ToString
 
        If Not String.IsNullOrEmpty(value) AndAlso IO.File.Exists(value) Then
            Try
                Process.Start(value)
 
            Catch ex As Exception
                Throw
 
            End Try
        Else
            ' ...
 
        End If
 
    End Sub
 
End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{
 
	private void Form1_Load()
	{
		var _with1 = this.DataGridView1;
		_with1.SelectionMode = DataGridViewSelectionMode.CellSelect;
		_with1.MultiSelect = false;
		_with1.Columns.Add("colImage", "Columna de Imagen");
		_with1.Columns.Add("colInfo1", "Columna adicional 1");
		_with1.Columns.Add("colInfo2", "Columna adicional 2");
		_with1.Rows.Add({
			"C:\\Imagen.jpg",
			"Info adicional 1",
			"Info adicional 2"
		});
	}
 
	private void DataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e)
	{
		string value = ((DataGridView)sender).Rows(e.RowIndex).Cells(0).Value.ToString;
 
		if (!string.IsNullOrEmpty(value) && IO.File.Exists(value)) {
			try {
				Process.Start(value);
			} catch (Exception ex) {
				throw;
			}
		} else {
			// ...
		}
	}
 
	public Form1()
	{
		Load += Form1_Load;
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

0x0000008E (0xC0000005 , 0x83085424 , 0xADE8BAC , 0x00000000)

0x0000008E: KERNEL_MODE_EXCEPTION_NOT_HANDLED

• Daños en el disco duro.
• Problemas de configuración de hardware general con el BIOS, la memoria, el disco duro, o con otros dispositivos.
• Controlador de dispositivo incompatible.
• Software incompatible.
• Service Packs.

0xC0000005: STATUS_ACCESS_VIOLATION, indicates that a memory access violation occurred. 

0x83085424

0xADE8BAC

0x00000000: STATUS_SUCCESS, The operation completed successfully.

C:\Windows\System32\eventvwr.msc

• 0x80000002: STATUS_DATATYPE_MISALIGNMENT, indica que se ha encontrado una referencia de datos desalineados.
• 0x80000003: STATUS_BREAKPOINT, indica que un 'breakpoint' o 'ASSERT' fue encontrado cuando el sistema no tenia adjuntado el depurador del Kernel.
• 0xC0000005: STATUS_ACCESS_VIOLATION, indica que ha ocurrido una violación de acceso a la memoria.

• Asegúrate de tener espacio suficiente en el disco.
• Si un driver ha sido identificado en el mensaje del error, deshabilita el driver o consulte con el fabricante para actualizaciones del driver.
• Prueba a cambiar los adaptadores de video.
• Consulte con el vendedor del hardware para actualizaciones de la BIOS.
• Desactive las opcioens de memoria de la BIOS, como el 'caching', o el 'shadowing'.

• Incompatibilidad de Hardware.
  Asegúrate de que cualquier dispositivo nuevo de hardware que haya sido instalado recientemente, sea compatible con la versión instalada de Windows.
  Por ejemplo, puedes obtener información sobre compatibilidad con Widnows 7 en el centro de compatibilidad de Windows 7 (Windows 7 Compatibility Center).
• Driver o servicio del sistema defectuoso.
  Un driver o servicio del sistema defectuosos pueden ser responsables de este error.
  Los problemas de hardware, tales como incompatibilidades con la BIOS, conflictos de memoria, y los conflictos de IRQ, también pueden generar este error.

values = range(1, 31)
print ','.join(map(str, values))

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30

@echo off echo Respaldando... 
echo Renombrando con %date% 
set FECHA= %date% 
set FECHA=%FECHA:/=% 
set FECHA=%FECHA: =% 
set FECHA=%FECHA::=% 
set FECHA=%FECHA:,=% 
xcopy "C:\Documents\log" "C:\Documents\log\%FECHA%" /e/c/h/k/o/x/y 

@Echo OFF
 
Set "today=%date:~0,2%%date:~3,2%%date:~6,4%"
 
For %%# in ("*.jpg") Do (
    Call :Replace "%%~n#" "%today%"
    Echo Nombre original  : "%%~nx#"
    Call Echo Nombre modificado: "%%replaceResult%%%%~x#"
    :: Renombrar archivo...
	REM Call Rename "%%~f#" "%%replaceResult%%%%~x#"
)
Pause&Exit
 
:Replace :: %1=value, %2=replacement
Set "value=%~1"
Call Set "removed=%%value:*_=%%"
Call Set "replaceResult=%%value:%removed%=%%"
Call Set "replaceResult=%%value:%removed%=%%"
Set "replaceResult=%replaceResult%%~2"
Goto:EOF

@Echo OFF
 
:: Inicializo las variables con números aleatorios del 0 al 9.
Set /A "val1=%RANDOM% %%9", "val2=%RANDOM% %%9", "val3=%RANDOM% %%9"
Set /A "val4=%RANDOM% %%9", "val5=%RANDOM% %%9", "val6=%RANDOM% %%9"
Set /A "val7=%RANDOM% %%9", "val8=%RANDOM% %%9", "val9=%RANDOM% %%9"
 
:: Aumentar el valor del primer parámetro (%val1%) 
:: hasta que no coincida con el resto de parámetros (%val2%, %val3%, %val4%, %val5%, %val6%, %val7%, %val8% ,%val9%)
Call :DoWhile "%val1%" "%val2%" "%val3%" "%val4%" "%val5%" "%val6%" "%val7%" "%val8%" "%val9%"
:: Asigno el ""valor de retorno"" del bloque ":DoWhile".
Set /A "val1=%DoWhileResult%"
 
REM Repetir el mismo proceso de arriba con los demás valores...
 
Call :DoWhile "%val2%" "%val1%" "%val3%" "%val4%" "%val5%" "%val6%" "%val7%" "%val8%" "%val9%"
Set /A "val2=%DoWhileResult%"
 
Call :DoWhile "%val3%" "%val1%" "%val2%" "%val4%" "%val5%" "%val6%" "%val7%" "%val8%" "%val9%"
Set /A "val3=%DoWhileResult%"
 
Call :DoWhile "%val4%" "%val1%" "%val2%" "%val3%" "%val5%" "%val6%" "%val7%" "%val8%" "%val9%"
Set /A "val4=%DoWhileResult%"
 
Call :DoWhile "%val5%" "%val1%" "%val2%" "%val3%" "%val4%" "%val6%" "%val7%" "%val8%" "%val9%"
Set /A "val5=%DoWhileResult%"
 
Call :DoWhile "%val6%" "%val1%" "%val2%" "%val3%" "%val4%" "%val5%" "%val7%" "%val8%" "%val9%"
Set /A "val6=%DoWhileResult%"
 
Call :DoWhile "%val7%" "%val1%" "%val2%" "%val3%" "%val4%" "%val5%" "%val6%" "%val8%" "%val9%"
Set /A "val7=%DoWhileResult%"
 
Call :DoWhile "%val8%" "%val1%" "%val2%" "%val3%" "%val4%" "%val5%" "%val6%" "%val7%" "%val9%"
Set /A "val8=%DoWhileResult%"
 
Call :DoWhile "%val9%" "%val1%" "%val2%" "%val3%" "%val4%" "%val5%" "%val6%" "%val7%" "%val8%"
Set /A "val9=%DoWhileResult%"
 
Echo Valores: %val1%, %val2%, %val3%, %val4%, %val5%, %val6%, %val7%, %val8%, %val9%
Pause&Exit
 
:DoWhile
Set /A "currentValue=%~1"
If "%currentValue%" EQU "0" (Set /A "currentValue=1")
 
Set /A "tmpValue=currentValue + 1"
If "%tmpValue%" EQU "10" (Set /A "tmpValue=1")
 
Set "recall=False"
If "%~1" EQU "%~2" (Set "recall=True")
If "%~1" EQU "%~3" (Set "recall=True")
If "%~1" EQU "%~4" (Set "recall=True")
If "%~1" EQU "%~5" (Set "recall=True")
If "%~1" EQU "%~6" (Set "recall=True")
If "%~1" EQU "%~7" (Set "recall=True")
If "%~1" EQU "%~8" (Set "recall=True")
If "%~1" EQU "%~9" (Set "recall=True")
 
If /I "%recall%" EQU "True" (
	Call :DoWhile "%tmpValue%" "%~2" "%~3" "%~4" "%~5" "%~6" "%~7" "%~8" "%~9"
) ELSE (
	Set /A "DoWhileResult=%currentValue%"
	Goto :EOF
)

Valores: 2, 9, 5, 8, 6, 7, 1, 4, 3
Presione una tecla para continuar . . .