LordKusa

Crear Carpeta

May 21st, 2018
138
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim CrearFolder As Object
  2. Dim Nombre As String
  3. Dim Ruta As String
  4. Private Sub Command1_Click()
  5.  
  6.     Ruta = "C:\Documents and Settings\All Users\Escritorio\"
  7.    
  8.     Nombre = 4040
  9.    
  10.     For I = 1 To 5
  11.    
  12.         Set CrearFolder = CreateObject("scripting.filesystemobject")
  13.    
  14.         CrearFolder.createfolder Ruta & Nombre
  15.        
  16.         Nombre = Val(Nombre) + 1
  17.        
  18.     Next
  19.  
  20. End Sub
RAW Paste Data