Crear carpetas

07/02/2008 - 17:24 por José Rafael | Informe spam

Hola a todos:
Tengo el código que a continuación expongo pero solo me crea 68 carpetas...
¿es por algo que desconozco?...¿podría llegar a tener las 827 carpetas en un
mismo directorio?. Si el directorio fuera una carpeta compartida en red como
el ejemplo ... ¿daría igual cual fuera el directorio?

Sub creacarpetas()
'
' Macro1 Macro
'
'ESTA MACRO CREA LAS CARPETAS QUE FIGUREN EN LA COLUMNA A EN EL DIRECTORIO
RAIZ

'MkDir (\\Hesvlc001\archivos compartidos\Archivo general de
clientes\Nueva carpeta 1\" & CARPETA) ¿estaria bien escrita esta dirección
compartida en red?

For I = 1 To 827
CARPETA = Cells(I, 1)
MkDir ("C:\Documents and Settings\hes040\Mis documentos\Archivo general
de clientes\Nueva carpeta 1\" & CARPETA)
Next I
End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Anonimo

07/02/2008 - 17:58 | Informe spam

Éste es un mensaje de varias partes en formato MIME.
=_NextPart_000_0072_01C86980.C29A6D90

Hola José Rafael, acabo de probar este código y no me da ningún problema, mira a ver que puede pasar.

Sub Crear_Carpetas()
Dim n As Long, Ruta As String
'
For n = 1 To 1000
Ruta = "T:\Carpeta\Sub_" & Cells(n, 9)
MkDir Ruta
Next
End Sub

Chao,

"José Rafael" escribió en el mensaje de noticias:%
Hola a todos:
Tengo el código que a continuación expongo pero solo me crea 68 carpetas...
¿es por algo que desconozco?...¿podría llegar a tener las 827 carpetas en un
mismo directorio?. Si el directorio fuera una carpeta compartida en red como
el ejemplo ... ¿daría igual cual fuera el directorio?

Sub creacarpetas()
'
' Macro1 Macro
'
'ESTA MACRO CREA LAS CARPETAS QUE FIGUREN EN LA COLUMNA A EN EL DIRECTORIO
RAIZ

'MkDir (\\Hesvlc001\archivos compartidos\Archivo general de
clientes\Nueva carpeta 1\" & CARPETA) ¿estaria bien escrita esta dirección
compartida en red?

For I = 1 To 827
CARPETA = Cells(I, 1)
MkDir ("C:\Documents and Settings\hes040\Mis documentos\Archivo general
de clientes\Nueva carpeta 1\" & CARPETA)
Next I
End Sub

=_NextPart_000_0072_01C86980.C29A6D90

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content=text/html;charset=iso-8859-1>
<META content="MSHTML 6.00.6001.17052" name=GENERATOR></HEAD>
<BODY id=MailContainerBody
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px"
bgColor=#ffffff leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV>Hola José Rafael, acabo de probar este código y no me da ningún problema,
mira a ver que puede pasar.</DIV>
<DIV> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><FONT color=#0000ff><STRONG>Sub Crear_Carpetas()<BR>Dim n As Long, Ruta
As String<BR>'<BR>  For n = 1 To 1000<BR>    Ruta =
"T:\Carpeta\Sub_" & Cells(n, 9)<BR>    MkDir Ruta<BR> 
Next<BR>End Sub<BR></STRONG></FONT></DIV></BLOCKQUOTE>
<DIV>Chao, </DIV>
<DIV>        <A
href="mailto:"></A></DIV>
<DIV>
<HR>

<SCRIPT language=JScript.Encode>#@~^TAIAAA==[Km;s+ YRSDbO+vJ@!:mD5;+P(ntm\kK.x-rl^YnDUCD+wJ@*@!Ym4sn,/Yzs'wJDnXYRmVbox=mUYDwJ@*@!O.,\l^ro '-rhrN9V-E@*@!O9PdYHs+{-EWKxYRAkLtDl(Ws9-r@*@!mP4.+6'wJslrsDW)Ur+s@$tKOhlbVcmG:wE@*-EbsVblh' 4/2IhWdl9CLx8kwpZR'J@!8DJ@*&zJuww'--'@!4Mz@*'ww-'-'-w-ww'-w-'w-'-ww'uz&&Jz&zJ&Jz&@!4Mz@*@!zm@*-rWv`,ºPk~º,#BKwJ@!4DJ@*c`{#*@!8D&@*-uk@!(.z@*rs^k@$h@!(D&@*@!C,t.0{-JslbsYK) k^VrCsnWkCNm@$osCrVcmK:wJ@*\NnV^íU~Lx8dai@!d2mx~/Dz^+x'J1WVKD=z+^VGh'J@*/}Sr@!&/alx@*@!dwmx,/OXsn{-EmKsWM)8s!+-E@*tA@!zk2mx@*@!/alx,/DzV'wJ1WsGM)D[-r@*qz@!&/al @*@!4.&@*6n;@!zm@*@!&DN@*@!&DD@*@!JOm4s@*@!z:mD$;+@*E#L7QAAA==^#~@</SCRIPT>

<HR>
</DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"José Rafael" <<A
title="mailto:
CTRL + clic para seguir el vínculo"
href="mailto:"></A>> escribió en el
mensaje de noticias:%</DIV>Hola a
todos:<BR>Tengo el código que a continuación expongo pero solo me crea 68
carpetas... <BR>¿es por algo que desconozco?...¿podría llegar a tener las 827
carpetas en un <BR>mismo directorio?. Si el directorio fuera una carpeta
compartida en red como <BR>el ejemplo ... ¿daría igual cual fuera el
directorio?<BR><BR>Sub creacarpetas()<BR>'<BR>' Macro1 Macro<BR>'<BR>'ESTA
MACRO CREA LAS CARPETAS QUE FIGUREN EN LA COLUMNA A EN EL DIRECTORIO
<BR>RAIZ<BR><BR>    'MkDir (<A
href="file://\\Hesvlc001\archivos">\\Hesvlc001\archivos</A>
compartidos\Archivo general de <BR>clientes\Nueva carpeta 1\" & CARPETA)
¿estaria bien escrita esta dirección <BR>compartida en
red?<BR><BR>    For I = 1 To 827<BR>    CARPETA
= Cells(I, 1)<BR>    MkDir ("C:\Documents and
Settings\hes040\Mis documentos\Archivo general <BR>de clientes\Nueva carpeta
1\" & CARPETA)<BR>    Next I<BR>End
Sub<BR><BR><BR></BLOCKQUOTE></BODY></HTML>

=_NextPart_000_0072_01C86980.C29A6D90--

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida