"Mismatch" on a VBA string help

[lloydie8]

Hi guys

I have the below code, but I am getting a mismatch error on line 11. Any ideas? I'm a newbie to all this so it's got me stumped!

Sub GetLatestFiles()    Dim strDir As String, fs As Object, startFolder As String, subfolder As Object, increment As Integer, latest As Integer, latestFolder As String


    Set fs = CreateObject("Scripting.FileSystemObject")
    startFolder = "H:\Everyone\SOFTCON PCS"
    Set folder = fs.GetFolder(startFolder)
    latest = 0
    latestFolder = vbNullString        


    For Each subfolder In folder.SubFolders
        increment = CInt(VBA.Right(subfolder.Path, Len(subfolder.Path) - WorksheetFunction.Find("-", subfolder.Path, 1)))


        If increment > latest Then
            latest = increment
            latestFolder = subfolder.Path
        End If
    Next


    Workbooks.Open latestFolder & "\" & "EGBCIS13.txt"
End Sub

Thanks,
Gareth

 

[ranman256]

you could have highlighted line 11. My line 11 is a blank line. Or do you mean the 11th line of code, not spaces.
and is the SUB the 1st line? or the code inside the sub?

 

[lloydie8]

Sorry,

Copying from Notepad has messed with the formatting a wee bit.

The line that's mismatched is "increment = CInt(VBA.Right(subfolder.Path, Len(subfolder.Path) - WorksheetFunction.Find("-", subfolder.Path, 1)))"

Many thanks,
Gareth

 

[RoryA]

I assume whatever the result of your Right function is cannot be converted to an integer.

 

[lloydie8]

Quite possible. I'll be honest a lot of this is Greek to me.