-->>Hello, I hope I can get help on this its like this...
-->>I have an application that allows a User to brows files in a Computer...
-->>On My point of interest Zipped files,that's My filtering Criteria...
-->>When the File wiht .zip is found it is displayed on the Textbox very fine...
-->>But what I don't like is the way it is displayed with its extention of .zip...
-->>For Example if its name is 'Bile',it shows up like this 'Bile.zip' which I dont see good...
-->>So please what should I do to remove the Last 4 characters '.zip' and remain with only 'Bile'...
-->>Regards.
Bile
10
Newbie Poster
Recommended Answers
Jump to Post@Andre, did you by chance mean to use InstrRev in line 6 of your code?
Here's my entry for this mundane function.
Function RemoveExt(fname As String, Optional extToRemove As String = "") As String ' if extToRemove = "" then all extensions removed Dim pt_pos As Integer …
Jump to PostIt's amazing how much we've forgetten when we're reverting to this ancient technology lol.
Try this:If InStrRev(Filename, ".") > 0 Then Text1.Text = Mid(Filename, 1, (Len(Filename) - (Len(Filename) - InStrRev(Filename, ".") + 1))) Else Text1.Text = Filename End If
This does the exact same …
All 8 Replies
tinstaafl
1,176
Posting Maven
AndreRet
526
Senior Poster
TnTinMN
418
Practically a Master Poster
AndreRet
commented:
Indded, because of more functionality :)
+13
tinstaafl
1,176
Posting Maven
AndreRet
526
Senior Poster
tinstaafl
1,176
Posting Maven
Bile
10
Newbie Poster
AndreRet
526
Senior Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.