Visual Basic - como crear una carpeta para luego guardar archivos.

Life is soft - evento anual de software empresarial
 
Vista:

como crear una carpeta para luego guardar archivos.

Publicado por zendi (33 intervenciones) el 21/09/2018 18:15:43
he desarrollado este codigo para copiar archivos a una carpeta. El codigo funciona, pero la idea es crear la carpeta automaticamente y no de forma manual, he tenido que crear la carpeta de forma manual.
mi pregunta es: como hago para que se cree automaticamente?
en la primera linea en negrilla estoy tratando de crearla pero me da error.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
MkDir C:/Users/equipo/Desktop/archivo
Const DestinationFile = "c:/Users/equipo/Desktop/archivo/copiar.vbs"
Const SourceFile = "c:/Users/equipo/Desktop/copiar.vbs"
Set fso = CreateObject("Scripting.FileSystemObject")
    'Check to see if the file already exists in the destination folder
    If fso.FileExists(DestinationFile) Then
        'Check to see if the file is read-only
        If Not fso.GetFile(DestinationFile).Attributes And 1 Then
            'The file exists and is not read-only.  Safe to replace the file.
            fso.CopyFile SourceFile, "c:/Users/equipo/Desktop/archivo/copiar.vbs", True
        Else
            'The file exists and is read-only.
            'Remove the read-only attribute
            fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1
            'Replace the file
            fso.CopyFile SourceFile, "c:/archivo/copiar.vbs", True
            'Reapply the read-only attribute
            fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1
        End If
    Else
        'The file does not exist in the destination folder.  Safe to copy file to this folder.
        fso.CopyFile SourceFile, "c:/Users/equipo/Desktop/archivo/copiar.vbs", True
    End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.908
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

como crear una carpeta para luego guardar archivos.

Publicado por Andres Leonardo (1755 intervenciones) el 21/09/2018 18:45:49
Creala asi

1
MkDir "C:\Users\equipo\Desktop\archivo\"


**Aunque siempre deberas validar que no exista para crearla si no dara error
** la otra recomendacion debera existir el usuario "equipo" en donde lo ejecutes por que si no dara error.

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

como crear una carpeta para luego guardar archivos.

Publicado por zendi (33 intervenciones) el 24/09/2018 21:38:23
Amigo Andres, me esta arrojando este error:
Linea: 1
Caracter: 1
Error: No coinciden los tipos 'MkDir'
Codigo: 800A000d
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

como crear una carpeta para luego guardar archivos.

Publicado por zendi (33 intervenciones) el 24/09/2018 22:33:00
Amigo Andres, ya lo resolvi con este codigo:

1
2
3
4
5
path = "C:\Users\damian\Desktop\archivos"
set filesys = CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If

Gracias por tu ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar