How to do a function or procedure in SAM with VBScript

deathunt

I want to do something like this (using modularity):

Sub main()

    nb1=1

    nb2=3

   

    nb1 = weirdNumber(nb1)

    nb2 = weirdNumber(nb2)

    //nb1 result = 10

    //nb1 result = 14

End Sub

Function weirdNumber(nb)

    return (nb +4 )* 2

End Function

I didn't find any documentation or exemple on module, function or procedure. If there another way to do script I'll be happy to hear it !

erica.gill

Hi,

I just tested with:

Option ExplicitOn Error Resume NextDim lstArgs, path, fso, objDir, objFiles, objFiles2Set lstArgs = WScript.ArgumentsFunction Test(value)Test=(value-2)End FunctionIf lstArgs.Count = 1 Thenpath = Trim( lstArgs( 0 ))ElseWScript.Echo "Message: Usage: wscript.exe filelist.vbs [pathToFiles]" &vbCRLF &"[pathToFiles] Local or UNC Path"WScript.Echo "Statistic: 0"WScript.Echo "Message: Usage: wscript.exe filelist.vbs [pathToFiles]" &vbCRLF &"[pathToFiles] Local or UNC Path"WScript.Echo "Statistic: 0"WScript.Quit( 1 )End IfSet fso = Wscript.CreateObject( "Scripting.FileSystemObject" )If fso.FolderExists( path ) ThenSet objDir = fso.GetFolder( path )If( IsEmpty( objDir ) = True ) ThenWScript.Echo "Message: Object Not Initialized"WScript.Echo "Statistic: 0"WScript.Quit( 1 )End IfSet objFiles = objDir.FilesIf( IsEmpty( objFiles ) = true) ThenWScript.Echo "Message: Object Not Initialized"WScript.Echo "Statistic: 0"WScript.Quit( 1 )End IfWScript.Echo "Message.Total: " & CInt( objFiles.Count ) & " files in this folder."WScript.Echo "Statistic.Total: " & Test(objFiles.Count)WScript.Echo "Message.Twice: " & CInt( objFiles.Count*2 ) & " = twice the number files in this folder."WScript.Echo "Statistic.Twice: " & CInt( objFiles.Count*2 )WScript.Quit( 0 )ElseWScript.Echo( "Message: Folder Not Found" )WScript.Echo "Statistic: 0"WScript.Quit( 1 )End If

And it ran fine, a trivial example and copied from the sample link for the most part but it works.

Let me know how it goes.