Get textfile Name

[Av8tordude]

I have a text file that is always in a 16 digit alpha-numeric format ####-####-####-####.
How can I get this file name and insert it in a userform label?

 

[Fluff]

As long as only one of the files is 23 characters long, how about

   Dim Pth As String, Fname As String
   
   Pth = "C:\Mrexcel\Textfiles\"
   Fname = Dir(Pth & "*.txt")
   Do While Fname <> ""
      If Len(Fname) = 23 Then Exit Do
      Fname = Dir
   Loop
   Me.Label1.Caption = Fname

 

[Av8tordude]

Is it's name constant ?

Yes

What is the name ?

TmEvnt

I understand it will always be there .... but what is it's purpose ?

Time tracking

Tell me why it needs to be there.

Each time the workbook is open, it logs the date n Time. It compares the time last used with the current time/date

 

[Logit]

One more question ... is the other text file always older than the daily imported file ?

 

[Av8tordude]

The TmEvnt will be used each time the workbook is opened. The other will used sparelingly.

 

[Fluff]

Did you see post#11?

 

[Logit]

.
Ok ... see if this does the job for you :

Private Sub UserForm_Initialize()
Dim fc  As Integer
Dim fldr As FileDialog
Dim getfolder As String
Dim wrd As Variant, strfile As Variant
    
    getfolder = "C:\Users\gagli\Desktop\Beta"
    Set fldr = Nothing
      
    strfile = Dir(getfolder & "\*" & ".txt" & "*")
    If strfile <> "TmEvnt.txt" Then
    Me.Label1.Caption = strfile
    End If

End Sub

Fluff ... thank you for contributing.

 

[Fluff]

Fluff ... thank you for contributing.

 

[Av8tordude]

My apologies guys....it was late where I live. Fluff & Logit....Thank you both for your help. I used post 11 code.
Is it possible to not include the extension? I greatly appreciate it.

 

[Logit]

Glad you have a solution ! Glad to help.

Cheers