Re: Show Filename Only in ComboBox Pulldown

I forgot to add my code for clicking the OK button upon the file selection.

Private Sub OKButton_Click()

TextPath = Me.ComboBox1.Value

On Error GoTo ErrorMsg
Open TextPath For Input As #1 'open text file for SN1033

Do While Not EOF(1) 'go while not end of text file
Line Input #1, NCData

If EOF(1) Then
Application.Range("AP9") = NCData
Range("AP9").Select

'On Error GoTo ErrorMsg1004
'recorded macro for text to columns
Selection.TextToColumns _
Destination:=Range("AP9"), _
DataType:=xlDelimited, _
Comma:=True, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1),
Array(4, 1)), _
TrailingMinusNumbers:=True

End If
Loop
Close #1

Unload TextFileSelectSN1033

Exit Sub
ErrorMsg: 'Error handling routines
Close #1
Range("AP9").Select
Selection.ClearContents
MsgBox "Error " & Err & ": " & Error(Err)

End Sub

Private Sub UserForm_Activate()

Dim i As Long

Me.ComboBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\Temp"
.Filename = "SN1033" & "*.txt"
.SearchSubFolders = False
.Execute

For i = 1 To .FoundFiles.Count Step 1
'Me.ComboBox1.AddItem Mid(.FoundFiles(i),
InStrRev(.FoundFiles(i), "\") + 1)
Me.ComboBox1.AddItem Dir(.FoundFiles(i))
Next i

End With

End Sub

"D.Parker" wrote:

> Gentlemen, I have tried both methods and the combobox has the text file, but
> I continually get error 53 (file not found). Prior to this change it was
> finding the file and getting the data from the file and dumping into the
> appropriate cell. Is there something else I need to change to use either of
> these methods? Thank you.
>
> Kind regards,
>
> D.Parker
>
> "Dave Peterson" wrote:
>
> > If you're using xl2k+:
> >
> > Change:
> > Me.ComboBox1.AddItem .FoundFiles(i)
> > to
> > Me.ComboBox1.AddItem mid(.FoundFiles(i),instrrev(.foundfiles(i),"\")+1)
> >
> >
> > I think Jim wanted you to try:
> >
> > Me.ComboBox1.AddItem dir(.FoundFiles(i))
> >
> >
> >
> >
> > D.Parker wrote:
> > >
> > > Hmmm. Let me add the code that I have and maybe that may be helpful. I'm
> > > not clear or how to incorporate that code you forwarded to show only my
> > > filename and not the entire filepath in the combobox pulldown?
> > >
> > > ============
> > > Private Sub UserForm_Activate()
> > > Me.ComboBox1.Clear
> > > With Application.FileSearch
> > > .NewSearch
> > > .LookIn = "C:\Temp"
> > > .Filename = "SN1008" & "*.txt"
> > > .SearchSubFolders = False
> > > .Execute
> > > For i = 1 To .FoundFiles.Count Step 1
> > > Me.ComboBox1.AddItem .FoundFiles(i)
> > > Next i
> > > End With
> > > End Sub
> > > ===================
> > >
> > > Kind regards,
> > >
> > > D.Parker
> > >
> > > "Jim Cone" wrote:
> > >
> > > > D,
> > > >
> > > > Use the "Dir" function...
> > > > '-----------------------------
> > > > Sub FileNameTest()
> > > > Dim strPath As String
> > > > Dim strName As String
> > > > strPath = "C:\Program Files\Intel\Intel Application Accelerator\iATAenu.dll"
> > > > strName = Dir(strPath)
> > > > MsgBox strName
> > > > End Sub
> > > > '-----------------------------
> > > >
> > > > Jim Cone
> > > > San Francisco, USA
> > > >
> > > >
> > > >
> > > > "D.Parker" <DParker@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> > > > news:34C643D4-E029-4119-AE39-DCFA19A0A3BE@xxxxxxxxxxxxxxxx
> > > > This is an continuation post from 6/26. JMB showed me the code to add to
> > > > utilize FileSearch inconjunction with UserForms. The code works great,
> > > > unfortunately the entire "path" (C:\.....\<filename>.txt) shows up in my
> > > > combobox pull down. Is there a way to show only the filename and not the
> > > > actual path to the file in the combo box?
> > > >
> > > > Kind regards,
> > > >
> > > > D.Parker
> > > >
> >
> > --
> >
> > Dave Peterson
> >
.