¿Cómo crear una carpeta y guardar archivos usando VB?

Agregue el control 1 al formulario: Comando1, Texto1, Imagen1 (organice las posiciones usted mismo, ingrese el nombre del archivo en TEXTO1).

Luego haz doble clic en el formulario para ingresar el código.

Subcomando privado 1_Click()

//Si el contenido de TEXT1 está vacío.

If text1.text = ""thenmsgbox "Ingrese el nombre del archivo", vbCritical, "error": Salir de Sub.

//Si el archivo no existe

ifdir(text 1 . text) = " " msgbox "El archivo no existe", vbCritical, " error": Salir de Sub.

//Abre el archivo y muéstralo en IMAGEN1.

Foto 1. Imagen = LoadPicture(Text1.Text)

//Determine si C:\PIC\ existe.

if Dir(" d:\ pic \ " & amp; Date) = " "ThenMkDir " d:\ pic \ " & amp; date

Atenúeme mientras

//Determine si el archivo ya existe y cambie el nombre si existe.

while(Dir(" d:\ pic \ " & fecha y hora." \ " & i& ".BMP")& lt; & gt"")

i = i + 1

Fila

//Guardar archivo

Guardar imagen imagen 1. Imagen, "d:\pic\" y fecha y hora. " \ " & ampi& amp".bmp "

Conector final