Listbox and file help.

[Worf]

Hi all

Ok, ive been trying to work this out for hours but without any luck.

The code below saves the contents of listbox2 to a folder, removes unwanted characters and then shortens the file name length down to 8 characters.


Now, what im trying to do is to put the filenames from listbox2 into a string JPGFILENAMES which will hold the filenames before being modified
(ie. Vista Areo.jpg)

Next, i need to have the modified filenames put into another string JPG (ie VistaAre.jpg)

Now, when all the filenames have been put into each string they would look like this:

JPGFILENAMES(1)="Vista Areo.jpg"
JPG(1)="VistaAre.jpg"
ect..

Or it might be easier to write them to a text file so they would look like:

"Vista Areo.jpg",VistaAre.jpg
ect..

That way i could just read the text file and then write the contents to the target text file when ready.

     Try 

                 Copy files from Listbox2 to a Folder. 

                For Each i As Item In ListBox2.Items 

                    My.Computer.FileSystem.CopyFile(i.Name, Application.StartupPath _ 
                                                    & DataDLL.PAPERTMP + i.Shortname) 

                 
                 Remove Unwanted Characters 


                Dim fileInfo As FileInfo 
                For Each fileInfo In New DirectoryInfo(Application.StartupPath & DataDLL.PAPERTMP).GetFiles() 
                    Dim newFileName As String = fileInfo.Name 

                    newFileName = newFileName.Replace("_", String.Empty) 
                    newFileName = newFileName.Replace(" ", String.Empty) 
                    newFileName = newFileName.Replace("-", String.Empty) 
                    newFileName = newFileName.Replace(".jpg", String.Empty) 

                    IO.File.Move(fileInfo.FullName, fileInfo.DirectoryName + "\" + newFileName) 

             Next 

                 Check Length of Filename And Shorten If Greater Than 8 

                Dim fileInfo2 As FileInfo 
                For Each fileInfo2 In New DirectoryInfo(Application.StartupPath & DataDLL.PAPERTMP).GetFiles() 
                    Dim newFileName As String = fileInfo2.Name 

                    If newFileName.Length > 8 Then 

                        IO.File.Move(fileInfo2.FullName, fileInfo2.DirectoryName + "\" + newFileName.Substring(0, 8) & ".jpg") 

                    Else 

                        IO.File.Move(fileInfo2.FullName, fileInfo2.DirectoryName + "\" + newFileName & ".jpg") 

                    End If 

                Next 

                 
  Catch ex As Exception 

                     MsgBox(ex.Message) 

                    Exit Sub 

                 End Try 

        End Select

Regards

Worf

 

[PlausiblyDamp]

You might want to look at http://www.pinvoke.net/default.aspx/kernel32/GetShortPathName.html as a way of getting a files 8.3 name as simply truncating to 8 characters will fail if you have many files with the same starting name.

Have you looked at the StreamWriter class? This should allow you to write a text file with minimal effort.