Visual Basic Programming Code Examples Visual Basic > Files Directories Drives Code Examples Adding A Number To A Filename Adding A Number To A Filename Function NumerateFileName(FileName As String, _ NumberToAdd As Long) As String 'Dimension some variables. Dim TMP As String Dim Count As Long 'First strip the extension. TMP = FileName For Count = Len(TMP) To 1 Step -1 If Mid$(TMP, Count, 1) = "." Then TMP = Left$(TMP, Count - 1) Exit For End If Next Count 'Then add the number. TMP = TMP + CStr(NumberToAdd) 'Then put the extnesion back on and return it. For Count = 1 To Len(FileName) If Mid$(FileName, Count, 1) = "." Then NumerateFileName = TMP + Right$(FileName, _ Len(FileName) - Count + 1) Exit For End If Next Count End Function
