ayuda para copiar archivo..

[juanksepulv]

hola a todos, tengo una duda que me acompleja ya que no soy experto en vb y estoy recien creando mi primera aplicacion la cual se encarga de descargar un archivo zip para despues a travez de un boton, lo descomprima en un acarpeta especifica, ademas agrege un boton "guardar missiones" en el cual pretendo que el usuario al presionar el boton le de la opcion de poder copiar o guardar el archivo.zip en cualquier parte donde el quiera.
actualmente uso esto:

Código:

  

 A = CopyFile("C:Temp/pack.zip", "C:\Users\Administrador\Desktop", True)
        If A Then
            MsgBox("EL ARCHIVO SE A GUARDADO CORRECTAMENTE")
        Else
            MsgBox("EL ARCHIVO NO A SIDO GUARDADO POR UN ERROR")
        End If

en donde c:temp/pack.zip es el archivo que descarga la aplicacion, C:Temp es la carpeta donde se descarga el zip y queda alli, C:user/admin/desktop es donde se copia el archivo a traves del botton, pero resulta que en todos lo sistemas operativos la ruta es diferente, entonces quiero hacer que el usuario a travez de una ventana, eliga donde guardarlo...

desde ya muchas gracias....

[Insomnia]

Hola

Utiliza el control CommonDialog (lo tienes que añadir desde Proyecto / Componentes / Microsoft Common Dialog...)

Luego pones un código parecido a este:

Código:

        With CommonDialog1
            .Filter = "Todos los archivos (*.*) | *.*"
            .InitDir = Left(Pedido.Text, pos) & "Documentacion" 'Directorio en el que se abre por defecto
            .ShowSave 'Mostrar ventana guardar
            If .FileName = "" Then Exit Sub 'Si no selecciona nada
            Texto97.Text = .FileName 'en filename guarda se guarda la ruta seleccionada por el usuario
        End With

--Saludos--

[juanksepulv]

Iniciado por Insomnia

Hola

Utiliza el control CommonDialog (lo tienes que añadir desde Proyecto / Componentes / Microsoft Common Dialog...)

Luego pones un código parecido a este:

Código:

        With CommonDialog1
            .Filter = "Todos los archivos (*.*) | *.*"
            .InitDir = Left(Pedido.Text, pos) & "Documentacion" 'Directorio en el que se abre por defecto
            .ShowSave 'Mostrar ventana guardar
            If .FileName = "" Then Exit Sub 'Si no selecciona nada
            Texto97.Text = .FileName 'en filename guarda se guarda la ruta seleccionada por el usuario
        End With

--Saludos--

gracias por el dato,