Using InputBox to search for extension of file

[kmcosta]

Good afternoon all! I am looking to use an InputBox to find all files in a directory with the extension entered by the user via the InputBox. Here is what I came up with on my own, but this obviously doesnt work since I am here seeking some advice from people who actually know what they are doing Any help will be greatly appreciated!!!! :D


Dim y As String
Dim filename1 As String
y = InputBox("enter animal ID")

Const DirSearch As String = "C:\users\kevin m. costa\Desktop\data\"
filename1 = Dir(DirSearch & ".y")
Do Until filename1 = ""
Call copytest(filename1)
filename1 = Dir

[xladept]

Hi km,

Welcome to the Forum!

This code syntax is incorrect:

Please Login or Register  to view this content.

it should be:

Please Login or Register  to view this content.

But why not use something like:

Please Login or Register  to view this content.

[kmcosta]

This actually didn't work when I tried running it this morning. It doesn't do anything after that part of the script runs.

[xladept]

Maybe:

Please Login or Register  to view this content.

[kmcosta]

sweet mama cita! Works perfectly! Thank you sooooooooooooooooo much!!!