<< Filum.m

FileNameInc["bob001.txt"]

FileNameInc["fred199.txt"]

FileNameDec["bob002.txt"]

FileNameDec["Nat400.txt"]