Crear una carpeta nueva (Visual Basic)
Visual Basic 13 agosto 2007
On Error GoTo error
MkDir DirPath$
Exit Sub
error: MsgBox Err.Description, vbExclamation, “Error”
End Sub
Vota este artículo:
(No Ratings Yet)
Loading ...Posts anterior y posterior:
Posts Relacionados:
- Previo: « Copiar un archivo de una carpeta a otra (Visual Basic)
- Siguiente: Ejecuta un archivo utilizando Shell (Visual Basic) »
octubre 5th, 2007 a las 12:47 am
Gracias, saludos. No tengo mucha experiencia, pero, estoy tratando de utilizar tu codigo para crear una carpeta nueva con una macro de excel, pero no se como ordenar la ruta y nombre de la carpeta que deseo crear. Ej. C:\MiCarpeta\
octubre 5th, 2007 a las 12:48 am
Estaré agradecido si me ayudais…
octubre 5th, 2007 a las 1:03 am
Estos codigos son compatibles para las macros de excel?. Saludos.
octubre 5th, 2007 a las 1:18 am
Stanley, el excel es otra cosa. El código sería mas fácil
Sub crear_directorio()
MkDir “C:\MiCarpeta\”
End Sub
octubre 8th, 2007 a las 8:01 pm
Gracias por la ayuda. De paso estoy creando una plantilla de excel, pero deseo que al ejecutarse la primera vez, genere automaticamente los accesos directos tanto al escritorio como al menú inicio. ¿Me podrías ayudar con el código?. Saludos.
octubre 8th, 2007 a las 10:34 pm
En excel yo utilizaría Windows Script Host, lo puedes meter en una macro como la siguiente:
Sub Crear_Accesos_Directos()
Dim wsh As Object
Dim myWSO As Object
Dim my2ndWSO As Object
Dim myDesktop As String
Dim myStartMenu As String
Dim myDeskName As String
Set wsh = CreateObject(“WScript.Shell”)
‘ruta del escritorio
myDesktop = wsh.SpecialFolders(“Desktop”)
‘PARA CARPETA PROGRAMAS
‘myDesktop = wsh.SpecialFolders(“Programs”)
‘ruta al menu de inicio
myStartMenu = wsh.SpecialFolders(“StartMenu”)
‘nombre del acceso directo
myDeskName = “Mi Acceso Directo”
Set myWSO = wsh.CreateShortCut(myDesktop & _
“\” & myDeskName & “.lnk”)
Set my2ndWSO = wsh.CreateShortCut(myStartMenu & _
“\” & myDeskName & “.lnk”)
With myWSO
.WindowStyle = 3
.IconLocation = “C:\Archivos de programa\Microsoft ” & _
“Office\OFFICE11\Excel.exe,3″
.WorkingDirectory = “C:\Archivos de programa\” & _
“Microsoft Office\OFFICE11″
.TargetPath = “C:\Mi_Archivo.xls”
.Save
End With
With my2ndWSO
.WindowStyle = 3
.IconLocation = “C:\Archivos de programa\Microsoft ” & _
“Office\OFFICE11\Excel.exe,3″
.WorkingDirectory = “C:\Archivos de programa\” & _
“Microsoft Office\OFFICE11″
.TargetPath = “C:\Mi_Archivo.xls”
.Save
End With
Set wsh = Nothing
End Sub
marzo 14th, 2008 a las 3:37 pm
salu2 a todos bueno quisiera q me ayuden con los codigos de visual para crear carpetaras bueno hice un codigo pero como q no me gusta mucho quiero algo mas chevere si alquien quisiera ayudarme ..gracias “”
este es mi codigo
Private Sub mnucrearcarpeta_Click()
unidad = InputBox(“ingrese la unidad”, “UNIDAD DE DISCO LOCAL”)
carpeta = InputBox(“escriba un nombre para la carpeta”, “CREAR”)
If carpeta = “” Then
MsgBox ” escriba un nombr eara la carpeta”
Else
fso.CreateFolder (unidad & “:\” & carpeta)
End If
Dir1.Refresh
File1.Refresh
End Sub
agosto 4th, 2008 a las 10:15 pm
ola
solo q
junio 2nd, 2010 a las 6:37 pm
BUENAS!! QUIERO SABER COMO CREO UNA CARPETA CON LA CONDICIÓN QUE NO EXISTA… O SEA, SI EXISTE QUE NO LA CREE.
DESDE YA MUCHAS GRACIAS A QUIEN PUEDA AYUDAR.
SALUDOS, FEDE.
octubre 7th, 2010 a las 5:14 pm
soy nuevo en esto y quisiera que me ayudaras con un codigo que aga que todos los archivos nuevos que entren en una carpeta se copeen automaticamente en otra.
te agradeseria mucho si me ayudas
septiembre 14th, 2011 a las 7:55 pm
A ver si te sirve este codigo, yo lo utilizo y me sale muy bien.
Try
If Directory.Exists(ruta & “\” & Año & “\FINANCIEROS”) Then
a = MsgBox(“El directorio ya existe”)
Else
di = Directory.CreateDirectory(ruta & “\” & Año & “\FINANCIEROS”)
b = MsgBox(“El directorio fue creado exitosamente, dirijase a la ruta ” & ruta & “\” & Año & “\FINANCIEROS”)
End If
Finally
End Try