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?

 

[Logit]

Option Explicit

Private Sub UserForm_Initialize()
Me.Label1.Caption = ThisWorkbook.Name
End Sub

 

[Av8tordude]

The textfile is created using VBA (alpha-numeric format), which is place in folder name Beta. I need to get the name of this textfile name. Not the workbook that is currently open.

 

[Logit]

.
The text file MUST be the ONLY FILE in the folder for the macro to work properly.

Option Explicit

Private Sub UserForm_Initialize()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("C:\Users\gagli\Desktop\Beta") 'edit path as required
 
For Each oFile In oFolder.Files
 
    Me.Label1.Caption = oFile.Name
 
    i = i + 1
 
Next oFile

End Sub

 

[Av8tordude]

Unfortunately, the Beta folder will have 2 files. Any way around this?

 

[Av8tordude]

I tried this but it doesn't work. What I'm i missing...

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Beta")
 
For Each oFile In oFolder.Files
 
    If oFile Like "####-####-####-####" Then Label1 = oFile.Name
 
Next oFile

 

[Logit]

You haven't used the posted macro code.

What prevents the BETA folder from containing only one file ?

 

[Logit]

.
This macro will search the BETA folder for a TEXT FILE. So long as your text file is the only text file in the folder ... this macro will work 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:\Beta"
    Set fldr = Nothing
     
    strfile = Dir(getfolder & "\*" & ".txt" & "*")
    Me.Label1.Caption = strfile

End Sub

The first macro posted requires only one file exist in the BETA folder. The second macro requires the folder contain only one text file.
You now have two different methods.

 

[Av8tordude]

Maybe I may have been misunderstood. There will be only 2 files (both are text files). One will be name in the aforementioned format (####-####-####-####.txt) and the other will be a regular name (i.e. Myfile.txt) The first code does not display the file name I wanted (as you said it requires the folder to have 1 file). Hence the reason I made an attempt with my code (which doesn't work).
BTW i did try the first code

 

[Logit]

Tell me more about the other file in the folder.

Is it's name constant ?

What is the name ?

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

Tell me why it needs to be there.

Please provide answers to each of the above. Thanks.