La programación VB utiliza la función dir para encontrar si hay un archivo EXE en la unidad D. ¿Cómo escribirlo?

Private Sub Form_Click()

Atenuar s como cadena

v = Split(AllFiles("F:\VB Ejercicio"), ","")' Almacene cada nombre de archivo en la matriz v()

For i = 0 To UBound(v) - 1

If Right(Trim(v(i)), 1) = " e" And Left(Right(Trim(v(i)), 2), 1) = "x" And Left(Right(Trim(v(i)), 3), 1) = "e" Entonces 'el juicio es ¿Es un archivo exe?

s = s + v(i)

Finalizar si

Siguiente i

Text1.Text = s

End Sub'Obtener todos los nombres de archivos en la carpeta Función AllFiles(dirPath)

En caso de error, reanudar siguiente

Si es correcto(dirPath, 1) <> " \ " Entonces

dirPath = dirPath & "\"

Finalizar si

Establecer FSO = CreateObject("scripting.filesystemobject")

Establecer F = FSO.GetFolder(dirPath)

Establecer fs = F.Files

Para cada archivoN en fs

AllFiles = AllFiles & fileN.Name & " , "

Siguiente

Establecer FSO = Nada

v = Split(AllFiles, ","")

Finalizar función