Establecer Directorios

[sirhamelef]

Hola a todos, cada vez me falta menos para terminar ahora tengo una duda como hago para establecer distintos directorios, o sea, "toda la accion "t ranscurre en un directorio que en algun momento estableci y no se como lo hice, en donde establezco el directorio donde se guardan todos lo archivos del proyecto???. Por otro lado mi program exporta archivos a excel y deseo que los guarde en un subdirectorio del primero (por ejemplo) exportados, como hago esto?.

Saludos y gracias
S

[ranefi]

Hola sirhamelef, buen día. Me alegra que preguntes tanto, eso me da la impresión de que sabes mucho. Mira, para serte sincero no entendí bien tu pregunta; aún así creo tener una respuesta (acorde a lo entendido por mí):


Si deseas abrir un archivo desde un directorio que se encuentra en la ruta de tu aplicación deberás introducir lo siguiente:

Código:

Dim Excel As Object
           
            Set Excel = CreateObject("Excel.Application")
           
            With Excel
                        .Visible = False
                        .WorkBooks.Open FileName:=App.Path & "\Directorio\ArchivoExcel.xls"
            End With

Si notas, en el código se muestra como abro una hoja de Excel llamada ArchivoExcel.x ls que se encuentra en una carpeta llamada Directorio. Esto, tomando en cuenta la constante App.Path la cual te da la ruta de tu aplicación. Espero y que tu duda se haya resuelto. Nos vemos.

[sirhamelef]

Si pero lo que deseo es justamente cambiar la ruta del app.path, sabes como puedo hacer.

O sea mi idea es que busque en un directorio a determinar en algun momento por el usuario entendes?

[sirhamelef]

Estoy empezando con VB6 igual en programcion realice cosas pero en otros lenguajes este lo aprendi investigando y leyendo de internet, mas lo que sabia de programación pude sacarlo a flote.

Gracias hermano y nos vemos
S

[ranefi]

Si pero lo que deseo es justamente cambiar la ruta del app.path, sabes como puedo hacer.

O sea mi idea es que busque en un directorio a determinar en algun momento por el usuario entendes?

Emmmm, sigo sin entender amigo,     ¿deseas que el usuario seleccione la ruta en la cual el programa va a estar instalado? Si esto es así, pues es simple, solamente deberás definir una variable global la cual almacenará la ruta introducida por el usuario.

[sirhamelef]

Eso mismo pero como seria, como se establece esto    ¿?. Justamente lo que quiero es lo que pusiste en tu mensaje. Yo quiero que el user diga en donde se va a guardar todo el contenido del programa.

Gracias
S

[ranefi]

Pues mira, podrías hacer lo siguiente, pero te advierto que sólo es un ejemplo (un pseudocódigo) con el cual podrás basarte para llevar a cabo lo que necesitas (no publico algún código en específico ya que no me has dado más detalles):

Supongo que así quieres que quede el formulario (o aproximadament e)



Esto es suponiendo que el botón con la propiedad Caption "Instalar" se llama Command1 y el cuadro de texto se llama Text1

Código:

Private Sub Command1_Click()
    Dim PrimerArchivo As String
    Dim SegundoArchivo As String
    Dim TercerArchivo As String
   
    PrimerArchivo = "Archivo1.exe"
    SegundoArchivo = "Archivo2.bmp"
    TercerArchivo = "Archivo3.ico"
   
    With Text1
        FileCopy .Text & "\" & PrimerArchivo
        FileCopy .Text & "\" & SegundoArchivo
        FileCopy .Text & "\" & TercerArchivo
    End With
End Sub

Espero y esto te dé una idea. Lamento proporcionar una ayuda tan poco formal, pero para serte sincero no puedo ayudar más si no cuento con más detalles. Si así lo deseas, puedes publicar un algoritmo o tú código completo para que podamos proporcionarte una ayuda más completa. Espero y sigas preguntando. Nos vemos.

[sirhamelef]

No Ranefi no es para nada raro; te explico lo que quiero es que usando un comonDialog de abrir establecer por default el directorio con el que voy a verlo. Luego que el archivo que abra se guarde en este mismo directorio cuando le de guardar eso solo nomas

Mil gracias amigo
Eze

[ranefi]

Buen día sirhamelef. Sabes amigo, disculpa mi lentitud en entendimiento, pero sigo sin captar la idea de lo que quieres hacer. A lo poco que entendí fue que necesitas abrir un programa con un CommonDialog y después grabarlo en una ruta diferente.     ¿Podrías mostrarme lo que deseas hacer con un algoritmo? Lo que pasa es que necesito que seas un poquito más específico por favor, jejejeje x p

[sirhamelef]

Ok, no hay problema la idea es:

Le doy click en abrir me muestra los archivos que hay en el directorio "pepe" abro el archivo que elijo y trabajo.
Le digo que me guarde el archivo y tambien que se guarde en el directorio "pepe".

Lo que quiero es establecer por default ese directorio "pepe". Para que te des una idea lo que quiero es lo mismo que hace el word por ejemplo cuando abro me muestra el contenido de mis documentos cuando lo guardo se guarda en mis documentos; todo esto esta seteado por default.

Bueno yo quiero hacer lo mismo, disculpa que no puse un algoritmo es que justamente no se como hacerlo y te confundiria mas.

Mil gracias
Eze

[ranefi]

    ¡Ah! Ya entendí, jejejeje. Bueno, aquí te un ejemplo, cortesía de Microsoft:



Para ver este enlace Registrate o Inicia Sesion

Ejemplo sencillo

Espero y te sirva. Nos vemos.