& "* Click the " "Start Conversion" " button" & vbCrLf & vbCrLf _.& "* Select the required rotation from the dropdown list" & vbCrLf _.& "* Select a video file by clicking the " "Browse" " button" & vbCrLf _.& "Rotate a video in 90 degrees steps and save it in MP4 format" & vbCrLf & vbCrLf _.strHelpText = "RotateVideo.hta, Version " & strVersion & vbCrLf _.Dim strHelpText ' Do not add more text, as it might be truncated by MsgBox limitations.strFFMPEG = objFso.BuildPath( arrPATH(i), "ffmpeg.exe" ). arrPATH = Split( Replace( objFso.GetParentFolderName( ) & " " & ( "PATH" ), "/", "" ), " " ).MsgBox "Download and install the FFMPEG package and make sure FFMPEG.EXE is located either in this program's parent folder (" "" & Replace( objFso.GetParentFolderName( ), "/", "" ) & "" " or in a directory listed in the PATH.".intAnswer = MsgBox( strMsg, vbYesNoCancel, strTitle ).& "Do you want to open the FFMPEG download page in your default browser now?".& "Make sure it is available, and located either in this program's parent folder (" "" & Replace( objFso.GetParentFolderName( ), "/", "" ) & "" ") or in a directory listed in the PATH." _.strMsg = "Unable to locate FFMPEG.EXE." _.strParentFolder = Replace( objFso.GetParentFolderName( ), "/", "" ).Set objFso = CreateObject( "Scripting.Filesystemobject" ).Set wshShell = CreateObject( "WScript.Shell" ).document.title = "RotateVideo, Version " & strVersion & " " & Chr( 169 ) & " 2021 Rob van der Woude".Dim intAnswer, intPosX, intPosY, strMsg, strParentFolder, strTitle.Dim objFso, strFFMPEG, strVersion, wshShell.VoltCraft Energy Logger 3500 Configuration.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |