Problem with process, file doesn't exists?

[mpals]

Hello to all.
This is my first post, i believe that is easily solve

I have a file a.txt in c:\ and want to rename it to b.txt, this should run in "batch" i have this code to do it.

If File.Exists("c:\a.txt") Then
            Dim p As Process
            p = New Process

            p.StartInfo.FileName = "ren"
            p.StartInfo.WorkingDirectory = "C:\"
            p.StartInfo.Arguments = "C:\a.txt b.txt"
            p.Start()
           
        Else
            sError = New LogsFile("File doesn't exists.", "ERROR: ")
            sError.NotifyLogs()   ' write to log file the error
        End If

On p.start() gives the exception file can be found.

Thanks for your time.

[mendhak]

If System.IO.File.Exists("c:\a.txt") Then
 
            System.IO.File.Move("C:\a.txt", "C:\b.txt")
 
...

[mpals]

Thanks mendhak.
It work for ren a.txt b.txt but (my mistake) the command could be ren or other DOS command

I find this solution (but to much code ) create file, run shell, and then delete file.... has to have another way.

If File.Exists("c:\a.txt") Then
     
            Try
                ' File.Move("c:\a.txt", "c:\b.txt")

                ' Need to create comm.bat with the DOS command  EX: ren c:\a.txt b.txt
                Shell("c:\comm.bat", AppWinStyle.Hide) 
              

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try


            ' Finally delete c:\comm.bat
            Try
                File.Delete("c:\comm.bat")
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

        Else
            sError = New LogsFile("File doesn't exists.", "ERROR: ")
            sError.NotifyLogs()
        End If

I try to run

shell("ren c:\a.txt c:\b.txt")

but gives the same error Why don't accept the command?!?!

I also try

 'System.Diagnostics.Process.Start("ren", "c:\a.txt b.txt")

and gives the same error !!!!! But here i understand why, "ren" is "read" like a file!!!

Any other ideia?

[mendhak]

It didn't work because ren is not a file, it's a dos command.

What's wrong with the suggestion I gave? What are you trying to accomplish?

[mpals]

It didn't work because ren is not a file, it's a dos command.

What's wrong with the suggestion I gave? What are you trying to accomplish?

Nothing wrong with your suggestion

but the command could be ren or any other DOS command...
i didn't say this in first post, but in second i correct it

[mendhak]

Now I see what you mean.

Do this:

Dim psi As ProcessStartInfo = New ProcessStartInfo("cmd.exe")
        psi.RedirectStandardOutput = True
        psi.RedirectStandardInput = True
        psi.UseShellExecute = False
        psi.CreateNoWindow = True
 
        Dim p As Process = Process.Start(psi)
        p.StandardInput.WriteLine("ren c:\a.txt b.txt")
        p.StandardInput.WriteLine("exit")

HTH

[mpals]

Now I see what you mean.

Do this:

Dim psi As ProcessStartInfo = New ProcessStartInfo("cmd.exe")
        psi.RedirectStandardOutput = True
        psi.RedirectStandardInput = True
        psi.UseShellExecute = False
        psi.CreateNoWindow = True
 
        Dim p As Process = Process.Start(psi)
        p.StandardInput.WriteLine("ren c:\a.txt b.txt")
        p.StandardInput.WriteLine("exit")

HTH

Perfect

Thanks very much mendhak, do exacty what i want.

One more time. Thanks.

[mendhak]

Great, now add [Resolved] to the thread title in the first post of this thread.

[mpals]

Great, now add [Resolved] to the thread title in the first post of this thread.

Done

[mendhak]

For error handling,

Dim psi As ProcessStartInfo = New ProcessStartInfo("cmd.exe")
        psi.RedirectStandardOutput = True
        psi.RedirectStandardInput = True
        psi.RedirectStandardError = True
 
        psi.UseShellExecute = False
        psi.CreateNoWindow = True
 
        Dim p As Process = Process.Start(psi)
 
 
        p.StandardInput.WriteLine("ren c:\a.txt b.txt")
        p.StandardInput.WriteLine("exit")
        Dim strErr As String = p.StandardError.ReadToEnd()

strErr will contain the error.

[mpals]

One more time, Thanks mendhak

[mpals]

Hello again. One more time a question about this.

Dim psi As ProcessStartInfo = New ProcessStartInfo("cmd.exe")
psi.RedirectStandardOutput = True
psi.RedirectStandardInput = True
psi.RedirectStandardError = True

psi.UseShellExecute = False
psi.CreateNoWindow = True

Dim p As Process = Process.Start(psi)


p.StandardInput.WriteLine("copy c:\a.txt b.txt")
p.StandardInput.WriteLine("exit")
Dim strErr As String = p.StandardError.ReadToEnd()

The b.txt already exists... wait for confirmation Yes/No/All

How can i give the anwser? Yes/No/All

I try to put

p.StandardInput.WriteLine("y")

before

p.StandardInput.WriteLine("exit")

didn't work...
and then after and didn't work to.

Anyone knows how i can do this?

Thanks.