ayuda como muevo un archivo

[Siempre Azul]

hola amigos tengo el sig problema:

tengo un programa en visual basic 6 que crea un archivo en una carpeta llamada "archivos" y antes de crear este archivo me aparece un dialogo para colocarle el nombre y despues el archivo se crea.

ahora viene el problema:

necesito que ese archivo se mueva o se copie a una carpeta llamada "programas" que esta afuera de la carpeta "archivos"
he intentado con el comando filecopy pero me manda error.

gracias de antemano

[Danyfirex]

Muestra tu código 

[Siempre Azul]

Muestra tu código 

filecopy "/archivos/*", "/programas"

[Danyfirex]

Tiene que ser si comodines. si creas tu el archivo y sabes el nombre usa el nombre completo. si necesitas comodines quizás este código te funciones.

Código (vb) [Seleccionar] Expandir

Private Const FO_COPY As Long = &H2

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Long
    hNameMaps As Long
    sProgress As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" ( _
     lpFileOp As SHFILEOPSTRUCT) As Long

Public Sub FolderCopyEx(Source As String, Destination As String)
    Dim SHFileOp As SHFILEOPSTRUCT
   
    With SHFileOp
        .wFunc = FO_COPY
        .pFrom = Source
        .pTo = Destination
    End With
   
    SHFileOperation SHFileOp
End Sub

saludos

[noalg]

Prueba a usar la api de windows, esa se llamaba FileOperation o algo parecido

[Siempre Azul]

el problema es que no es un nombre fijo si no que cambia porque cada usuario va a poner el nombre que mas le guste,no se como programar eso ayudenme

[Danyfirex]

Usa la función que puse respuesta #3. con ella puedes usar comodines.

[Siempre Azul]

amigo mira en la carpeta donde se crea el archivo hay otros archivos y entonces el programa de copiar o mover es el ultimo archivo creado(el que el usuario crea) a la otra carpeta llamada ''programas''

tu dices que use esto? pero no se como usarlo me marca error

Código [Seleccionar] Expandir

17.Public Sub FolderCopyEx(Source As String, Destination As String)

18.    Dim SHFileOp As SHFILEOPSTRUCT

19.

20.    With SHFileOp

21.        .wFunc = FO_COPY

22.        .pFrom = Source

23.        .pTo = Destination

24.    End With

25.

26.    SHFileOperation SHFileOp

27.End Sub



[noalg]

Si tu programa esta creandp ese archivo con un dialogo o de alguna forma puedes conseguir el nombre del archivo al crearlo, de esta forma guardarlo en una variable y hacer una llamada a la funcion, no tengo vb6 ahora asique no te puedo decir mas losiento