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

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" wrote in message
...
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

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" wrote in message
...
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

D,

Just ran this without a problem.
Note the lines with the asterisks...
'----------------------------------------
Private Sub MoreTests()
Dim i As Long '****
With Application.FileSearch
.NewSearch
.LookIn = "C:\Old Telephone Dialer"
.Filename = "*.hlp"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count Step 1
MsgBox Dir(.FoundFiles(i)) '****
Next i
End With
End Sub
'-----------------------------------------------------


"D.Parker" wrote in message
...
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" wrote in message
...
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

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" wrote in message
...
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

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" wrote in message
...
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

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" wrote in message
...
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