I know it is the encoding because I opened up the batch file that I made with Visual Basic, went to save as, then changed the encoding to ANSI. Then I did the same thing to another batch file that I made with notepad that did not show the code or directories, but I changed the encoding to UTF, and it did the same thing as it did with the one that I made with Visual Basic.
I still don't understand on what I have to do to make it ANSI.
I have a problem with my While Loops. It wont end when I increase the value to be bigger then I specified it to be less then in the beginning of the loop.
Dim MkvDCheckLoop 'Loop for the check conditions, to carry on.
MkvDCheckLoop = 0
While MkvDCheckLoop < 1
If VideoInputBoxMkvD.Text = "" Then 'Checks To Make Sure That The Input File Box Is Not Empty.
MsgBox("There Is No Input File.", vbExclamation + vbOKOnly, "No Input File.")
MkvDCheckLoop = MkvDCheckLoop + 1
MsgBox(MkvDCheckLoop)
End If
MkvDCheckLoop = MkvDCheckLoop + 1
If VIDMkvD = "" And AIDMkvD = "" Then 'Checks To See If Both The Video and Audio ID Is Empty.
MsgBox("The Video and Audio ID Is Empty. Please Put In The Correct ID.", vbExclamation + vbOKOnly, "No Video and Audio ID.")
MkvDCheckLoop = MkvDCheckLoop + 1
ElseIf VIDMkvD = "" Then 'Checks To See If Only The Video ID Is Empty.
MsgBox("The Video ID Is Empty. Please Put In The Correct ID.", vbExclamation + vbOKOnly, "No Video ID.")
MkvDCheckLoop = MkvDCheckLoop + 1
ElseIf AIDMkvD = "" Then 'Checks To See If Only The Audio ID Is Empty.
MsgBox("The Audio ID Is Empty. Please Put In The Correct ID.", vbExclamation + vbOKOnly, "No Audio ID.")
MkvDCheckLoop = MkvDCheckLoop + 1
End If
If MkvDAudioFormat.Text = "" Then 'Checks To See If The Audio Format Is Empty.
MsgBox("The Audio Format Is Empty. Please Put In The Correct Audio Format.", vbExclamation + vbOKOnly, "Audio Format Is Empty.")
MkvDCheckLoop = MkvDCheckLoop + 1
End If
If AudioOutputBoxMkvD.Text <> (Environ$("SystemDrive") & "\Videos\Temp\Audio\Mkv_Audio_Temp") & "." & MkvDAudioFormat.Text Then
MkvDAudioFormatQ = MsgBox("The Audio Output Does not have all the information that it needs. Would you like me to fix that for you?", vbQuestion + vbYesNo, "Missing information.")
If MkvDAudioFormatQ = vbYes Then
AudioOutputBoxMkvD.Text = (Environ$("SystemDrive") & "\Videos\Temp\Audio\Mkv_Audio_Temp" & "." & MkvDAudioFormat.Text)
Else
End If
MkvDCheckLoop = MkvDCheckLoop + 1
End If
End While
Where you see the MkvDCheckLoop = MkvDCheckLoop +1 , I thought that would end the loop. I also tried being even more specific by adding as integer where the declaration was. I tried MkvDCheckLoop +=1 , MkvDCheckLoop = MkvDCheckLoop + Val(1) and
none that ended the loop. The last thing that I tried, and that I pretty much knew would not work was, I added the MkvDCheckLoop = MkvDCheckLoop + 1 after the first End It, but it still went on checking the other conditions. Do you know what I
am doing wrong? I need it to only check one at a time, so if one is not right, I have to fix it, then once I try to make the file again, it will check on things that are further in that part of the code that do not match up.
