![]() ' but I will leave that for your enjoyment ' sure the entered name was a valid filename, to make sure the file did not already exist, 'To be thorough there should be a section here to check for duplicate or blank cells, to make SExt = Mid(sOriginalFilepathNameExt, InStrRev(sOriginalFilepathNameExt, ".")) "Correct problem(s) and try again.",, "Problems Found" MsgBox "The following problem(s) exist: "
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |