![]() ![]() ![]() X = objPopup.Popup(MsgLine, 10, "Job completed!", 64)įunction FileConv(extIN, extOUT, nameIN, nameOUT, namePart, path) X = objPopup.Popup(MsgLine, 3, "Work in progress", 64) ![]() Wscript.echo "No " & INfiletype & " file found!" If UCase(objFSO.GetExtensionName(objFile.Name)) = INfiletype Then Wscript.echo "Input file type not supported!" If InStr(INsupported, INfiletype) = 0 Or InStr(OUTsupported, OUTfiletype) = 0 Then ![]() Wscript.echo "IN and OUT file format is identical!" Wscript.echo "Missing parameters!" & vbCrLf & "Syntax:" & vbCrLf & "CONVERT.VBS " Set objPopup = CreateObject("WScript.Shell")Ĭonst ShowWindow = 1, DontShowWindow = 0, WaitUntilFinished = true, DontWaitUntilFinished = false Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") ![]()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |