现在遇到一个问题不知用fortran怎么写，请高手帮忙，谢谢！！
在固定的文件夹里(如：D：\123\)搜索部分名为a的文件（如;“1.txt”），如果文件夹内存在符合条件的文件（如：001.txt），则返回该文件名（如：001.txt）
与电脑里面的搜索功能相类似，请问用Fortran怎么实现？谢谢各位朋友~

 

能力有限，本程序只能查询程序目录下的文件
write(*,*) 'Please enter the file name:'
read(*,*) filename
inquire(file=filename,exist=alive)
if(alive) then
    write(*,*) 'the file',filename,' exist'
else
    write(*,*)  'the file',filename, 'dosen't exist'
end