Cannot run a function in a class project

[steve65]

Hi Again All,

I am trying to use one function in a class module in another function of another class module. Both class modules are in the same class project. I keep getting an error that the Sub or Function was not defined. If I move the function into the class module I am calling it from everything works fine.

Could some one please tell me what I am doing wrong.
Thanks

[Buzby]

The error may be because of the way you are declaring the sub or function. From the MSDN help;

[Private | Public | Friend] [Static] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]

End Sub

The Sub statement syntax has these parts:

Public - Optional. Indicates that the Sub procedure is accessible to all other procedures in all modules. If used in a module that contains an Option Private statement, the procedure is not available outside the project.

Private - Optional. Indicates that the Sub procedure is accessible only to other procedures in the module where it is declared.

Friend - Optional. Used only in a class module. Indicates that the Sub procedure is visible throughout the project, but not visible to a controller of an instance of an object.

Static - Optional. Indicates that the Sub procedure's local variables are preserved between calls. The Static attribute doesn't affect variables that are declared outside the Sub, even if they are used in the procedure.

Perhaps you should be using

Friend Sub xxxxxx

etc

[steve65]

I have added my code below. I have the function that I am calling defined as a public function so I don't know what gives.

Both file.cls and string.cls are in the same project.

In File.cls

Public Function CreateFolder(ByVal _
                        CompleteDirectory As String) As Integer

    drivePart = GetPart(CompleteDirectory, "\")

End Function

In String.cls

Public Function GetPart(InputString As String, Delimiter As String) As String

' Takes a string separated by "delimiter", splits off 1 item, and shortens the string so that the
' next item is ready for removal.

Dim c As Integer
Dim Item As String

    c = 1
    
    Do
        If Mid$(InputString, c, 1) = Delimiter Then
            Item = Mid$(InputString, 1, c)
            InputString = Mid$(InputString, c + 1, Len(InputString))
            GetPart = Item
            Exit Function
        End If
        c = c + 1
    Loop

End Function

[peet]

you might wanna trie this:

Public Function CreateFolder(ByVal _
                        CompleteDirectory As String) As Integer
 
    Dim s as new String '(object of type string.cls ... bad naming though :) )
    drivePart = s.GetPart(CompleteDirectory, "\")
 
End Function

[steve65]

Thanks