Insert filename

[Hatye]

Hi,

I want to browse my computer (perhaps using .GetOpenFileName?) to find one or multiple files. I don't want to insert the whole file, just the file name with extension (e.g. ".jpg")! Is that possible?

If so, I want the file names to be separeted using comma. The files may be in different folders, so I may need to run the macro several times to insert a new file name.

It would also be nice if there is a way to easily delete the filename, without going into the cell and delete it manually.


The file names should be inserted into cell W13.



Thanks for any help

 

[Ruddles]

To prompt the user to select one or more JPG files:-

Dim vFilename As Variant
vFilename = Application.GetOpenFilename(FileFilter:="Image files (*.jpg), *.jpg", MultiSelect:=True)
If Not IsArray(vFilename) Then Exit Sub [COLOR=green]' if users clicks 'Cancel'[/COLOR]

This will put the names in an array called vFilename which you can use in whatever way you want. To copy the names to cell W13:-

Dim iPtr As Long
For iPtr = LBound(vFilename) To UBound(vFilename)
  If IsEmpty(Range("W13")) Then
    Range("W13") = vFilename(iPtr)
  Else
    Range("W13") = Range("W13") & "," & vFilename(iPtr)
  End If
Next iPtr