LordKusa

Comprobar Directorio

May 21st, 2018
97
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim FSO As Object
  2.  
  3. Private Sub Command1_Click()
  4.  
  5.     Set FSO = CreateObject("Scripting.FileSystemObject")
  6.  
  7.     If FSO.FolderExists("C:\Documents and Settings\User\Escritorio") Then
  8.    
  9.         MsgBox "Si existe"
  10.        
  11.     Else
  12.    
  13.         MsgBox "No existe"
  14.    
  15.     End If
  16.  
  17. End Sub
RAW Paste Data