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

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

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

path = "C:\Users\damian\Desktop\archivos"

set filesys = CreateObject("Scripting.FileSystemObject")

If Not filesys.FolderExists(path) Then

Set folder = filesys.CreateFolder(path)

End If