Multi-File Conversion Solution:
Let me provide a personal solution to convert all rcrecs in a folder to AVI.
I seen in a LOGMEIN forum how to run a command line version to convert RCREC to AVI. It look like this.
'logmein aviconvert -in filename.rcrec -out filename.avi'
To get this file you must download and extract (with Folders) the following file:
https://secure.logmein.com/logmein.zip From the X86 subfolder you can run the following from the DOS PRompt
'logmein aviconvert -in filename.rcrec -out filename.avi'
and it works.
However, you can not do multiple files at once. - If you want to do that - I came up with a solution - it saves me a lot of time since many people here record and store them to a MAPPED Network Drive R:\ but they don't know how to convert them. etc...
***************** MULTI CONVERT
Conditions:
I save my rcrec files to a mapped drive letter R:\
I extracted the
https://secure.logmein.com/logmein.zip to r:\logmeinconvert
It works: However here is the problem. you cannot do all of them at the same time:
Example:
'logmein aviconvert -in *.rcrec -out *.avi'
So although it is nice to have the command line program it is still a bear in terms of knowing what to put in the parameters.
I wrote a program in excel that uses VBA to do the JOB details are here and it is worth trying (WARNING! use windows XP or lower OS's - forget about VISTA for this since it doesn't like the BAT files and security etc.....)
For this to work:
You must save all of your rcrecs to a r:\ folder
You must extract the
https://secure.logmein.com/logmein.zip to a folder called r:\logmeinconvert. Make sure that when unzipping that the folders option is on as subfolder x86 and x64 need to be extracted properly.
You must download the 4 small files I wrote to the directory r:\logmeinconvert
If you can not download the following 4 files you can download the zip file of them here:
ftp://ftp.auto-graphics.com/bar/logmeinconverttony.zip and extract them to r:\logmeinconvert
About the 4 files:
1. convert.bat
http://www.5gbfree.com/fileman.jsp?dir=&cmd=download&p=convert.bat This simply creates a rcreclist file of the *.rcrec file that are on R:\. Excel will import this rcreclist file and create a New Batch file that will contain all of the command line conversions for each file in the r:\ folder.
2. convert_rcrec_to_avi.xls
http://www.5gbfree.com/fileman.jsp?dir=&cmd=download&p=convert_rcrec_to_avi.xls This is the MAIN program. Once you execute this it runs CONVERT.bat, then creates a new convrcrec.bat file which will then be called to perform the conversions. Excel will also open the r:\ folder in windows to see the results using the convrcrecsshowr.bat below.
3. convrcrecs.bat
http://www.5gbfree.com/fileman.jsp?dir=&cmd=download&p=convrcrecs.bat This file is the main conversion batch process that excel dynamically changes.
4. convrcrecshowr.bat
http://www.5gbfree.com/fileman.jsp?dir=&cmd=download&p=convrcrecshowr.bat this batch file is simply called by excel to open the the r:\ folder and it also removes the left over rereclist file that was created in batch file convert.bat
HOW TO RUN THE PROGRAM:
On you have followed the directions above: (And are NOT on Windows VISTA)
From r:\logmeinconvert folder simply execute the Excel file 'convert_rcrec_to_avi.xls'
There is no need to concern yourself with the .BAT files since excel uses these for certain processes. Feel free to examine them in advance.
***********************************************
If you are VBA Savvy:
For detailed VBA information that associated with the EXCEL file 'convert_rcrec_to_avi.xls' see the following:
The excel file 'convert_rcrec_to_avi.xls' has a workbook macro call 'sub auto_open()'
This makes the following VBA code run automatically when the excel file 'convert_rcrec_to_avi.xls' is open:
The following code is provided should you need to adjust any parameters to your needs. You may also have to edit the batch .bat files also if you modify this code. This works for me:
**********************************
Sub Auto_Open()
'
' convert_rcrec_to_avi Macro
' Macro recorded 8/1/2007 by BAR
'
'
Application.DisplayAlerts = False
Call Shell(Environ$("COMSPEC") & " /c r:\logmeinconvert\convert.bat", vbNormalFocus)
' Response = MsgBox("This will convert all rcrec logmeinrescue video files to avi files", , Hey!)
Application.Wait Now + TimeSerial(0, 0, 5)
ChDir "R:\"
Workbooks.OpenText Filename:="R:\rcreclist", Origin:=437, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Application.Goto Reference:="R1C7"
' ActiveSheet.Paste
Application.Goto Reference:="R1C7"
ActiveCell.FormulaR1C1 = "echo on"
Range("G2").Select
ActiveCell.FormulaR1C1 = "cls"
Range("G3").Select
ActiveCell.FormulaR1C1 = "r:"
Range("G4").Select
ActiveCell.FormulaR1C1 = "cd \"
Range("G5").Select
ActiveCell.FormulaR1C1 = "cd \logmeinconvert\x86\"
Range("G6").Select
ActiveCell.FormulaR1C1 = "md converted"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"logmein aviconvert -in r:\Rescue.rcrec -out Rescue.avi"
Range("G8").Select
ActiveCell.FormulaR1C1 = "cd \logmeinconvert\x86\"
Range("G9").Select
ActiveCell.FormulaR1C1 = "call convert3.bat"
Range("G10").Select
Application.Goto Reference:="R8C7:R9C7"
Selection.Cut
Application.Goto Reference:="R1C8"
ActiveSheet.Paste
Application.Goto Reference:="R1C1:R1000C1"
Selection.Copy
Application.Goto Reference:="R1C2"
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Replace What:="rcrec", Replacement:="avi", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("G7").Select
Application.Goto Reference:="R7C7"
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R1C3"
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"logmein aviconvert -in r:\Rescue.rcrec -out Rescue.avi"
Range("C2").Select
Application.Goto Reference:="R1C3"
ActiveCell.FormulaR1C1 = _
"=""logmein aviconvert -in r:\""&RC&"" -out ""&RC"
Range("C2").Select
Application.Goto Reference:="R1C3"
Selection.Copy
Application.Goto Reference:="R2C3:R1000C3"
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C1").Select
Application.Goto Reference:="R1C4"
ActiveCell.FormulaR1C1 = "=IF(RC="""","""",RC)"
Range("D2").Select
Application.Goto Reference:="R1C4"
Selection.Copy
Application.Goto Reference:="R2C4:R1000C4"
Application.Goto Reference:="R1C4:R1000C4"
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("D1").Select
Application.Goto Reference:="R1C4"
Range("C1").Select
Application.Goto Reference:="R1C3:R1000C3"
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C1").Select
Application.Goto Reference:="R1C4"
ActiveCell.FormulaR1C1 = "=IF(RC="""","""",RC)"
Range("D2").Select
Application.Goto Reference:="R1C4"
Selection.Copy
Application.Goto Reference:="R2C4:R1000C4"
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Goto Reference:="R1C4:R1000C4"
Selection.Copy
Application.Goto Reference:="R1C1"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="R1C1:R1000C1"
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R7C7"
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Goto Reference:="R1C8:R2C8"
Selection.Copy
Application.Goto Reference:="R1001C7"
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Goto Reference:="R1C7:R1005C7"
Selection.Copy
Application.Goto Reference:="R1C1"
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Goto Reference:="R1C2:R1010C11"
Selection.ClearContents
Range("A1").Select
' more
'
Application.Goto Reference:="R1C2"
ActiveCell.FormulaR1C1 = "=IF(RC="""",""echo ."",RC)"
Range("B2").Select
Application.Goto Reference:="R1C2"
Selection.Copy
Application.Goto Reference:="R2C2:R1005C2"
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Goto Reference:="R1C2:R1010C2"
Selection.Copy
Application.Goto Reference:="R1C1"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="R1C2:R1010C2"
Application.CutCopyMode = False
Selection.ClearContents
Application.Goto Reference:="R1C1"
'
Application.Goto Reference:="R1C1:R1010C1"
Selection.SpecialCells(xlCellTypeBlanks).Select
Range("A1002").Select
ActiveCell.FormulaR1C1 = "move /Y *.avi r:\"
Range("A1003").Select
Selection.ClearContents
Range("A1004").Select
Selection.ClearContents
Range("A1005").Select
Selection.ClearContents
Application.Goto Reference:="R1C1"
' end more
ActiveWorkbook.SaveAs Filename:="R:\logmeinconvert\convrcrecs.bat", FileFormat:= _
xlTextMSDOS, CreateBackup:=False
' ActiveWindow.Close
Call Shell(Environ$("COMSPEC") & " /c r:\logmeinconvert\convrcrecs.bat", vbNormalFocus)
' fname = BrowseFolder(Caption:="Select A Folder", InitialFolder:="r:\")
Application.Wait Now + TimeSerial(0, 0, 7)
Call Shell(Environ$("COMSPEC") & " /c r:\logmeinconvert\convrcrecshowr.bat", vbNormalFocus)
Application.Quit
End Sub
**********************************
That's all folks...
Was it a pain to write all this? Yes - I hope the logmein folks can change there convert process to allow wildcard characters * or come up with a better solution as well as not have these AVI codecs in their proprietary format where customers can not view them unlsess they install the AVICONVERT.MSI codec in advance..
Sincerely,
Tony Ricci
brunoaricci@gmail.com
