extract either a 6 or 5 digit number from string

[Trebor8484]

Hi,

The below code will loop through a folder of files and look for pdf's.

Each filename will contain a unique ID either 6 digits or 5 digits in length. What I would like to do is extract that numerical value, i.e. sample234567.pdf and assign my UniqueID variable into a string value 234567

There should only ever be a single numerical value in the filename so there may be an easier way to accomplish this rather than specifically testing the length of the numerical part of the string.

Sub SelectFolder()

    Dim fldr As FileDialog
    Dim MyFolder As String
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim UniqueID As String

    'Create an instance of the FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

    With fldr
        .Title = "Select folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> 0 Then
            MyFolder = .SelectedItems(1)
        Else
            MsgBox "User Cancelled"
            Exit Sub
        End If
    End With

    Set objFolder = objFSO.GetFolder(MyFolder)

    'loops through each file in the directory and prints their names and path
    For Each objFile In objFolder.Files
        If Right(objFile.Name, 3) = "pdf" Then
        End If
    Next objFile

End Sub

Thanks

 

[Rick Rothstein]

Is the number you want always located just before the dot separating the file name from the file extension?

 

[Trebor8484]

Hi Rick, sometimes it's at the start of the string as well