visual basic как открыть файл не зная буквы диска (т. е. когда буква меняется! ) А хочу сделать autorun с диска

adres = "C:\WINDOWS\abc.bat"
Set adresfs = CreateObject("Scripting.FileSystemObject")
If adresfs.fileexists(adres) Then
end if