Multi-Input of Data Using Vbscript

August 12, 2013 at 00:05:48
Specs: Windows Vista, 1.6 gb 4gb
I have been putting together a script to move files from one folder to another while renaming them with random elements in the file name. As this has involved using a series of consecutive input boxes it made me wonder if it were possible to create a single multi-input dialogue or message box using vbscript. I couldn't find anything to show if this was possible and before I do anything further with the script I was wondering if anyone knew if multi-input is possible. I have attached the script which is quite rough with no error checking as yet but it does what I want it to do. I would appreciate anything on multi-input.

Thank you

Dim intMax,  k, m, intValue, strChar, strName,  strRanDigitsYesNo, intValue2, intMax2, intCount

' Specify the range of characters to use.
Const Chars = "abcdefghijklmnopqrstuvwxyz_123456789"

' Specify the affix range of numbers to use.
Const Chars2 = "123456789"

'Specify Files Source Folder
strSourceFolder = InputBox((chr(13))&(chr(13))&"Enter Source Folder Full Path Ending With A Backslash" ,"Data Input")

' Specify length of random section
intMax = InputBox((chr(13))&(chr(13))&"Enter Number Of Characters For Random Section"&(chr(13))&(chr(13))& "If Random Section Not Required, Hit Cancel","Data Input")

strFileNameToMatch = "txt" 
strFileTextTag = "" 

strFileTextTag = InputBox((chr(13))&"Add Text Tag" &(chr(13))&(chr(13))&"If No Tag Hit Cancel","Data Input")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSourceFolder)
intCount = InputBox((chr(13))&(chr(13))&"Start Prefix Numbering From:","Data Input")

strRanDigitsYesNo = InputBox((chr(13))&"If Affix Required  Enter Yes (Case Sensitive)" &(chr(13))&(chr(13))&"If Affix Not Required Hit Cancel"&(chr(13))&(chr(13))&"(Affix Holds 6 Random Numbers)","Data Input")

strDestinationFolder = InputBox((chr(13))&(chr(13))&"Enter Target Folder Full Path Ending With A Backslash" ,"Data Input")

For Each objFile In objFolder.Files
	strFileName = objFSO.GetFileName(objFile)
	If LCase(right(strFileName, 3)) = strFileNameToMatch Then
		' If the file ext is longer than 3 characters change the number above as appropriate

    k = ""
    strName = ""
    For k = 1 To intMax
        ' Original = Retrieve random digit between 0 and 25 (26 possible characters)
        ' This = Retrieve random digit between 0 and 35 (36 possible characters) 
        intValue = Fix(36 * Rnd())
        ' Convert to character in allowed list
        strChar = Mid(Chars, intValue + 1, 1)
        ' Build strName.
        strName = strName & strChar

'wscript.echo strName
If strFileTextTag = "" then

                   strNewFileName = "0"&intCount&"_"&strFileTextTag & strName&".txt"


                  strNewFileName = "0"&intCount&"_"&strFileTextTag&"_"& strName&".txt"

End if

intMax2 = "6"


strDigChar = ""
strDigName = ""
m = ""

For m = 1 To intMax2
             ' Retrieve random digit between 0 and 9 (10 possible characters)
              intValue2 = Fix(9 * Rnd())
             ' Convert to digit in allowed digit list
              strDigChar = Mid(Chars2, intValue2 + 1, 1)
             ' Build the name.
             strDigName = strDigName & strDigChar


length = len(strNewFileName)

'wscript.echo length

pos = length-4

strNewFileName = left(strNewFileName,pos)

if strRanDigitsYesNo = "Yes" then

              strNewFileName = strNewFileName&"_"&strDigName&".txt"


             strNewFileName = strNewFileName&".txt"

end if

objFSO.MoveFile objFile.Path, strDestinationFolder & strNewFileName

intCount = intCount + 1

End If

strDigitName = ""


edited by moderator: Changed [code] tags to <pre>. - Razor2.3

See More: Multi-Input of Data Using Vbscript

Report •

August 12, 2013 at 06:07:18
Typically, you'd make an HTA. Then you can make the layout however you want.

I notice you're calling Randomize twice in a loop; don't do that. Call it once, when your script begins and never again.

Also, I'm not seeing any hit detection. Ask yourself what will happen if your random name already exists.

Finally, your indenting is horrible. If you can't keep it consistent, don't bother in the first place. It's better to admit disinterest than lie about it.

How To Ask Questions The Smart Way

Report •
Related Solutions

Ask Question