Dim fd As FileDialog, strFILENAME, strDIR As String
fd.FastScroll = True 'Se muestra un diálogo donde se pide el archivo excel
fd.FilePath = File.Combine(File.DirRootExternal, "Download/")
fd.FileFilter = ".xls"
fd.Show("Seleccione el archivo "".xls"" con la lista de máquinas", "Aceptar", "Cancelar", "", Null)
strFILENAME = fd.ChosenName
strDIR = fd.FilePath