Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: General Dmitry Vergadoski en 10 Agosto 2013, 20:42 pm



Título: ayuda como muevo un archivo
Publicado por: General Dmitry Vergadoski en 10 Agosto 2013, 20:42 pm
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


Título: Re: ayuda como muevo un archivo
Publicado por: Danyfirex en 10 Agosto 2013, 21:59 pm
Muestra tu código  :rolleyes:


Título: Re: ayuda como muevo un archivo
Publicado por: General Dmitry Vergadoski en 10 Agosto 2013, 22:09 pm
Muestra tu código  :rolleyes:

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


Título: Re: ayuda como muevo un archivo
Publicado por: Danyfirex en 11 Agosto 2013, 01:51 am
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
  1. Private Const FO_COPY As Long = &H2
  2.  
  3. Private Type SHFILEOPSTRUCT
  4.    hWnd As Long
  5.    wFunc As Long
  6.    pFrom As String
  7.    pTo As String
  8.    fFlags As Integer
  9.    fAborted As Long
  10.    hNameMaps As Long
  11.    sProgress As String
  12. End Type
  13.  
  14. Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" ( _
  15.     lpFileOp As SHFILEOPSTRUCT) As Long
  16.  
  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

saludos


Título: Re: ayuda como muevo un archivo
Publicado por: noalg en 11 Agosto 2013, 01:59 am
Prueba a usar la api de windows, esa se llamaba FileOperation o algo parecido


Título: Re: ayuda como muevo un archivo
Publicado por: General Dmitry Vergadoski en 11 Agosto 2013, 03:06 am
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


Título: Re: ayuda como muevo un archivo
Publicado por: Danyfirex en 11 Agosto 2013, 03:10 am
Usa la función que puse respuesta #3. con ella puedes usar comodines.


Título: Re: ayuda como muevo un archivo
Publicado por: General Dmitry Vergadoski en 11 Agosto 2013, 03:46 am
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:
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




Título: Re: ayuda como muevo un archivo
Publicado por: noalg en 11 Agosto 2013, 12:18 pm
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