Tips.cl

Aquí dejo una funcion que muestra todos los archivos que hay en un directorio

function Busca_archivos($carpeta){
$directorio=dir($carpeta);
while ($archivo = $directorio->read())
{
if($archivo==”.” OR $archivo==”..”)
{}else{
echo “$archivo <br>”;
}
}
$directorio->close();
}

Compartelo

My.Computer.FileSystem.MoveFile(”c:\miarchivo.txt”, “d:\miarchivo.txt, True)

Compartelo

1. ‘ Directory
2. If Directory.Exists(“c:\MiDirectorio”) Then
3. MsgBox(“La carpeta existe”, MsgBoxStyle.Information)
4. Else
5. MsgBox(“No existe”, MsgBoxStyle.Information)
6. End If
8. If File.Exists(“c:\midirectorio\miarchivo.exe”) Then
9. MsgBox(“Existe”, MsgBoxStyle.Information)
10. Else
11. MsgBox(“No existe”, MsgBoxStyle.Information)
12. End If
    

Compartelo

1. Dim Archivo As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
2. 
   
3. Archivo = My.Computer.FileSystem.FindInFiles( _
4. “C:\”, _
5. “Hola Mundo”, _
6. True, _
7. FileIO.SearchOption.SearchTopLevelOnly)
8. ‘ recorre la lista
9. For Each name As String In Archivo
10. ‘ Agrega
11. msgbox(name)
12. Next

Compartelo

For Each Archivo As String In My.Computer.FileSystem.GetFiles( “c:\midirectorio”, _
FileIO.SearchOption.SearchAllSubDirectories, _
“*.*”)

msgbox(Archivo)

Next

si quieres listar solo los archivos .EXE solo debes cambiar el ultimo parametro

Compartelo