Code Folding for VBScript

Chuck Gahr · Post by **Chuck Gahr** » Mon Sep 12, 2005 10:27 pm

It would be a real help to include the file extension *.wsc in addition to the standard *.vbs, in code folding, for Windows Script Host programs. The *.wsc applies to VBScript Com programs, which contain a little XML, but are mostly VBScript.

Post by **jussij** » Tue Sep 13, 2005 8:55 am

Hi Chuck,

The mapping of the .wsc file extension to VB Script has been implemented and the new xFolder.dll can be found here:

http://www.zeusedit.com/z300/xFolder.zip

To install this new dll backup the current dll and replace it with the one contained in the zip file.

To complete the install the .wsc file extension also need to be added to the VB Script document type.

Cheers Jussi

Guest · Post by **Guest** » Tue Sep 13, 2005 8:53 pm

Hi Jussi,

The new xFolder.dll works fine. I had already added the wsc to the VBS doc Type. This is going to be a big convenience.

Thanks, Chuck Gahr

Chuck Gahr · Post by **Chuck Gahr** » Fri Sep 16, 2005 5:42 pm

Hi Jussi,

Have been using the VB Script code folding and find that fold beginning (+ or -) does not happen for Class, Select or With statements; however the End statements for those commands do get the fold ending (.). This results in code folding getting mixed up when these statements are present. Although I don't use Zeus for VB6 editing, I suspect that these same problems might exist for VB6 also (the Class statement is not used in VB6).

I have checked this out and I think I am correct about the VB Script. This feature is so useful that it would probably benefit quite a few users to fix it. Thanks much.

Post by **jussij** » Fri Sep 16, 2005 10:35 pm

Hi Chuck,

Thanks for the bug report. The problems you highlighted have been fixed in the latest xFolder.dll which can be found here:

http://www.zeusedit.com/z300/xFolder.zip

To install this new dll backup the current dll and replace it with the one contained in the zip file.

The following code was used to test the changes made:

Code: Select all

Class Customer
    With Workbooks("Book2")
        FName = .Path & "\code.txt"
        If Dir(FName) <> "" Then
            Kill FName
        End If
        For Each VBComp In .VBProject.VBComponents
            If VBComp.Type <> vbext_ct_Document Then
               Kill FName
            End If
        Next VBComp
    End With

    If test <> "" Then
        For i = 0 To flxGrid.Cols - 1
            Select Case VBComp.Type
                Case one
                Case two
                Case Else
            End Select
        Next i
        For Each one In ActiveWorkbook
            Select Case VBComp.Type
                Case one
                Case two
                Case Else
            End Select
        Next one
    End If
End Sub

Public Property Get NewEnum() As IUnknown
    Set NewEnum = mCol.[_NewEnum]
End Property

Cheers Jussi

Chuck Gahr · Post by **Chuck Gahr** » Sat Sep 17, 2005 3:17 am

Hi Jussi,

Well, thanks again! The new xFolder works fine.

Regards, Chuck Gahr

Code Folding for VBScript

Code Folding for VBScript

Code Folding for VB Script

Code Folding