'Returns True if FilenameEndPart is properĬase ".txt", ".c", ".h", ".bas", ".doc", ".cpp", ".htm", ".html", ".js", ".jsp" 'Hyväksytyt tiedostopäätteet. ![]() Private Function IsProperFileType(ByRef FilenameEndPart As String) As Boolean Temp$ = Mid$(Filename, FileNameEndStartPos)ĮxtractFileEnd = Temp$ 'Return Filename End part ie. ' for example: a=ExtractFileEnd("c:\Temp\testi_")ĮndStartPosSearch = InStr(EndStartPosSearch, Filename, ".", 1)ĮndStartPosSearch = EndStartPosSearch 1 ' Purpose : Returns file end from a given Filename Private Function ExtractFileEnd(ByRef Filename As String) As String StringToModify = Left(StringToModify, i - 1)
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |