Tips.cl

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

Dim

Contador As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Contador  = My.Computer.FileSystem.GetFiles(“C:\MiDirectorio”)
MsgBox(“La Cantidad de Archivos es: ” & CStr(Contador.Count))

Compartelo