If Workbook path contains then

[pltom55]

I need help with using "contains" in code.

What is mean is. When i open up a workbook using vba, I have its directory and pathname.

How would i write something along these lines?



If [workbookpath] contains [word im looking for] Then
blah blah



Thanks

 

[mikerickson]

contains is not a VBA comparative, like it is in AppleScript.

I think this code will show one way of doing it in VBA.

If Instr(1, "big long string", "long") <> 0 Then
    "long is inside"
Else
    "no Long in big string"
End If

 

[bugmonsta]

To find text in your path, searching for the word 'user' in my example

Sub getpath()

Dim docpath As String
docpath = Application.ActiveWorkbook.Path
If docpath Like "*user*" Then
MsgBox "FOUND IT"
Else: MsgBox "not found"

End If
End Sub

You could also use the full name if you want to with Application.ActiveWorkbook.FullName

 

[pltom55]

Thanks it worked!!!!

 

[pltom55]

By the way bugmonsta the "user" is case sensative.
Any way to get around that and just search for the word

 

[mikerickson]

A typical way to make a test case insensitive would be

If UCase(docpath) Like UCase("*user*") Then

 

[bugmonsta]

A typical way to make a test case insensitive would be

If UCase(docpath) Like UCase("*user*") Then

Thanks Mike.

pltom55 - what Mike said Sorry I should have caught that!