Saludos tengo un problema como abrir  la ruta  cd %psw% para ejecutar un archivo bat con start, alguien me puede ayudar


el archivo txt solo contiene en su linea D:\64

@echo off
 
for /f "tokens=*" %%x in (C:\Users\64\Desktop\ruta.txt) do (set psw=%%x)
 
cd..
cd..
cd %psw%
 
start 2.bat
exit

Tambien tengo problema para abrir el mismo archivo, identificando donde estoy ejecutando el .bat y para abrir el mismo archivo .txt me marca que no lo puede encontrar el archivo txt para leer

@echo off
set ruta= %~d0%~p0ruta.txt
echo %ruta%
pause
 
for /f "tokens=*" %%x in (%ruta%) do (set psw=%%x)
 
 
echo %psw%
 
pause
exit

Buen día, se podría  abrir un txt que tiene rutas y su contenido ocuparlo por ejemplo en Robocopy (rutas que contiene el txt) /E

Es posible que desde el portapapeles se ejecute el código que queremos ejecutar, es decir si copio en un block de notas está línea

Echo Ejecutar & robocopy "C:\Users\me\Documents\a " "F:\Users\me\Documents\b" & echo terminó & exit

El batch pegue está línea y ejecute todas las órdenes que contiene la línea.

Gracias me ayudo mucho, gracias saludos y gracias por tomarte tu tiempo.

Saludos busco como mover multiples archivos  y pasarlos a otra ruta no busco mover la carpeta raíz solo todos los archivos que contenga.

Yo pensé que algo así podría pero no es la respuesta ya que tengo que especificar un archivo



My.Computer.FileSystem.MoveFile(LabelORIGEN.Text & "\*.*", LabelDESTINO.Text)

Saludos tengo una ruta por guardar en una base de datos soy nuevo en sql no tengo idea en que tipo de dato catalogarla, hice un ejemplo con guardar rutas grandes y pequeñas ejemplo:

C:\carpetas\datos\obtencion de datos para guardar\listado de datos\datos completo\listado de clientes\este es listado de datos para guardar en la base de dato.txt

C:\carpetas\datos\obtencion de datos para guardar listas.txt

la modifique en (editar esquema de tabla) en vb.net le cambie el valor por nvarchar en longitud le he modificado hasta 4000 pero aparece en el listado de DataGridView algunos datos con MaxLength las rutas grandes en texto, alguien me puede aconsejar un valor para este tipo de rutas

Gracias por la molestia la verdad no se mucho y menos de sql, este codigo lo aprendi de youtube, vi que el error es por recolectar rutas que superan el MaxLegth le he cambiado y algunas me carga en el DataGridView con signo de rojo por superar el limite, pero si logra llegar al fin de recolección.

es asi como me marca
https://drive.google.com/open?id=115_2doDcsiaNTlyjSp3idZBwzwNBHXpS

Si solo quiero guardar las direcciones de archivos que el boton Button1 busca, de ahi el timer es de guardar las direcciones que encontró el buscador y enlisto el label 7 es como el ID y el label 1 la ruta ejemplo D:\carpeta\archivo.txt los demas label son label que lleno con otro contenido, todo va bien y se ejecuta bien pero llega el momento que se detiene la depuración.

Buen dia estoy desarrollando un ejercicio el cual es de buscar extensiones y agregarlas a un ListBox, de ahí programo un timer para que seleccione dato por dato de la lista y la agregue a una base de datos, tengo el problema que agregar unos cuantos y en cierto momento se detiene la depuración marcando error en la linea para agregar datos a la base de datos, les dejo mi ejercicio espero me puedan ayudar.

Imports System.IO
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ExtensionBuscada As String = "*.txt"
        Dim dirInfo As New DirectoryInfo(TextBox1.Text)
        Dim dirsInfo() As DirectoryInfo = dirInfo.GetDirectories("*.*", SearchOption.TopDirectoryOnly)
 
        For Each di As DirectoryInfo In dirsInfo
            Try
                Dim filesInfo() As FileInfo = di.GetFiles(ExtensionBuscada, SearchOption.AllDirectories)
                For Each fichero As FileInfo In filesInfo
                    ListBox1.Items.Add(fichero.FullName)
                    Label6.Text = ListBox1.Items.Count
                Next
 
            Catch ex As UnauthorizedAccessException
                ' Controlo el error de acceso no autorizado a carpeta
 
            End Try
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.ListBox1.SelectedIndex = 0
        Button2_Click(sender, e)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        If ListBox1.Items.Count > 0 Then
            Label6.Text = ListBox1.Items.Count
            Me.ListBox1.SelectedIndex = 0
            Label1.Text = ListBox1.SelectedItem.ToString
 
            Label7.Text = Val(Label7.Text) + Val("1")
            Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS
 
            ListBox1.Items.Remove(ListBox1.SelectedItem)
 
 
 
        Else
            Label6.Text = ListBox1.Items.Count
            Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)
            Timer1.Stop()
 
        End If
 
    Private Sub DATOSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATOSBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.DATOSBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.CAPTURADataSet)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'CAPTURADataSet.DATOS' Puede moverla o quitarla según sea necesario.
        Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)
 
    End Sub
 
 
End Class

Si funciona, agrega bien pero en cierto tiempo de que agrego algunos detiene la depuración marca error en la linea de agregar a la bd.

Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS