[RESOLVED] Remove the last 4 letters from my list box list names.

[stilekid007]

Hello,

I have a list box that loads .bmp files and I can view them by clicking on the selected item.

My question is how do I remove the .bmp from the end of the name?

My list box looks like this:

Pic1.bmp
pic2.bmp

And I want it to look like this:

Pic1
Pic2

Thank you and have a great day!

Stilekid007

[chemicalNova]

Can you give the code you use to load the filenames in?

chem

[stilekid007]

Hello Chem,

Thank you for your reply.

Here is the code I am using.

frmMain.List1.Clear
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
    frmMain.List1.AddItem xFile.Name
Next
 
    Dim i As Long
For i = frmMain.List1.ListCount - 1 To 0 Step -1
    If Right(frmMain.List1.List(i), 4) = ".bmp" Then
    Else
       frmMain.List1.RemoveItem i
    End If
Next

Stilekid007

[Jacob Roman]

Use this:

frmMain.List1.Clear
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
    frmMain.List1.AddItem [b]Left(xFile.Name, Len(xFile.Name) - 4)[/b]
Next
 
    Dim i As Long
For i = frmMain.List1.ListCount - 1 To 0 Step -1
    If Right(frmMain.List1.List(i), 4) = ".bmp" Then
    Else
       frmMain.List1.RemoveItem i
    End If
Next

[chemicalNova]

Oh whoops. I figured it was more of a parsing job. Didn't read the question

Jacobs code (converted to your use) will work.

chem

[Hojo]

stilekid007

Jacob Roman's Code will work perfectly for you current program, but if in the future you will be adding files to your list that have a longer extention then you may want to do somthing like this...

frmMain.List1.Clear
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
[B]Dim FileName() As String[/B]
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
           
    [B]FileName = Split(xFile.Name, ".")
    frmMain.List1.AddItem FileName(0)[/B]   
 
Next
 
    Dim i As Long
For i = frmMain.List1.ListCount - 1 To 0 Step -1
    If Right(frmMain.List1.List(i), 4) = ".bmp" Then
    Else
       frmMain.List1.RemoveItem i
    End If
Next

Cheers All

Hojo

[stilekid007]

Hello,

Thank you for the code Jacob.

I see that your code works great. Now that I try it I have testers that test the file to make sure it is a image file. I have to different testers in my program and without the .bmp on the end it doesn't detect it as a image file.

So I guess I will just have to deal with that.

Thank you so much for the code though! It works great!
Stilekid007
P.S. Thank you Hojo as well! I will keep it in mind for the future!

[Hojo]

stilekid007

You may need to check if its a ".bmp" file before you remove the extention and add it too your list

frmMain.List1.Clear
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
    
      If Right(frmMain.List1.List(i), 4) = ".bmp" Then
              frmMain.List1.AddItem Left(xFile.Name, Len(xFile.Name) - 4)
      Else
               'don't add to list 
      End If
 
Next

Hope this helps

Hojo

[stilekid007]

stilekid007

You may need to check if its a ".bmp" file before you remove the extention and add it too your list

frmMain.List1.Clear
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
    
      If Right(frmMain.List1.List(i), 4) = ".bmp" Then
              frmMain.List1.AddItem Left(xFile.Name, Len(xFile.Name) - 4)
      Else
               'don't add to list 
      End If
 
Next

Hojo

Well the problem with this code is this line:

       If Right(frmMain.List1.List(i), 4) = ".bmp" Then

It will never be true because the list box has nothing in it at this time. The code would have to be modified to have it check the file name without the listbox. So we would have to check it against this "(xFile.Name, Len(xFile.Name)".

I am not smart enough to make a code that acttually works with that. I run into all kinds of errors. I can't right my own code to well

[stilekid007]

HAHA! WAIT! I GOT IT TO WORK!

Dim strImagePath As String
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
 
strImagePath = ("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\" & (xFile.Name))
 
     If Dir(strImagePath) <> "" And (Right(strImagePath, 4) = ".bmp" Or Right(strImagePath, 4) = ".jpg" Or Right(strImagePath, 5) = ".jpeg") Then
              frmMain.List1.AddItem Left(xFile.Name, Len(xFile.Name) - 4)
              
              Else
              'do nothing
 
    End If
Next

Check it out!

I actually made my own code! (WORK) That is simply 100% AMAZING!

Thank you for the inspiration!
You guys are really awsome!
This works great now!
:P
Stilekid007

[Hojo]

Sorry My bad

The problem with just cutting and pasting code.

Try This

frmMain.List1.Clear
Dim fso As New Scripting.FileSystemObject
Dim xFolder As Folder
Dim xFile As File
 
Set xFolder = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Clipboard Data\Pictures\")
For Each xFile In xFolder.Files
    
      If Right([B]xFile.name[/B], 4) = ".bmp" Then
              frmMain.List1.AddItem Left(xFile.Name, Len(xFile.Name) - 4)
      Else
               'don't add to list 
      End If
 
Next

Sorry again

hojo

[Hojo]

Well Done Stilekid007

Its always a great feeling when things start to work.

enjoy the rest of your day.

Hojo

[stilekid007]

LOL Thank you Hojo! I guess your code is more simple then mine (above your post) But it is still amazing that mine works haha! Ok, thank you for your help!

Stilekid007

[ZeBula8]

Sorry, a little late with the post but I thought I'd mention it to you anyway --

You could have just easily used the GetBaseName method of the FileSystemObject...

Dim fso As FileSystemObject
Dim sBaseName As String
 
Set fso = New FileSystemObject
 
' this will return the name of the file without the extension
sBaseName = fso.GetBaseName(sPathToFile)

[stilekid007]

Hey Zebula! Thank you for the code! That would have been a bit less code for getting the path name.

Thank you again and have a great day!
Stilekid007