Scripts inside VBA Corel Macro?

[0meg@]

Question: can i use for example WSH call or even more! assembler directives inside my macro. I believe i can, but don't know how.

[shelbym]

WSH should work fine, I have never tried anything in assembler.

-Shelby

[0meg@]

How can i use SetLocale from WSH in my VBA for Corel Macro. The reason is too large code to change locale by VBA.

[Alex]

Just curious, why do you need to change the locale?

[0meg@]

I working in Russia, some of designer's computers en locale and other ru locale but all of them use some net folder named in english with month's name. My macro for automation builds the path and the code in WSH is:


strPath2Lnk = objFSO.BuildPath(objWshShell.SpecialFolders("SendTo"), "Send to NetPrinterFolder.lnk")

prevLocale = SetLocale("en-us")
dtNow = Now()
strTargetPath = objFSO.BuildPath( _
"\\Print\Work", Right("00" & CStr(Month(dtNow)), 2) & "_" & MonthName(Month(dtNow)) & "\" & Right("00" & CStr(Day(dtNow)), 2) _
)
SetLocale(prevLocale)

But there is no simple way to change locale in VBA for my purpose.

[Alex]

Since you are always using English month names, why not just hard-code them like this:

Function EnglishMonthName(ByVal nMonth As Long) As String
    Dim monthNames() As Variant
    monthNames = Array("January", "February", "March", _
            "April", "May", "June", "July", "August", _
            "September", "October", "November", "December")
    
    EnglishMonthName = monthNames(nMonth - 1)
End Function

Then you can use this function instead of VBA's MonthName