Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: AnaCarolina28 en 26 Mayo 2014, 12:56 pm



Título: Necesito sacar un archivo
Publicado por: AnaCarolina28 en 26 Mayo 2014, 12:56 pm
Quiero sacar un archivo del form al escritorio con visual basic 6.0.


Título: Re: Necesito ayuda por favor
Publicado por: 79137913 en 26 Mayo 2014, 13:32 pm
HOLA!!!

Aca tenes un ejemplo, solo crea un form en blanco y pega este codigo.

Vas a tener que cambiar la primera linea por la que corresponde para que copie los archivos ahi.

Código
  1. Private Const Destination As String = "C:\Documents and Settings\Administrador\Escritorio\"
  2. ' ACA ARRIBA PONES LA UBICACION A DONDE QUERES QUE TE COPIE LOS ARCHIVOS.
  3.  
  4. Private Sub Form_Load()
  5.    Me.Caption = "Ejemplo para copiar multiples archivos por 79137913 con Drag and drop"
  6.    Me.OLEDropMode = 1
  7.    Me.Show
  8. End Sub
  9.  
  10. Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  11.    Dim j As Long
  12.    If Data.GetFormat(vbCFFiles) = True Then
  13.        If Not (GetAttr(Data.Files.Item(1)) And vbDirectory) Then
  14.            For j = 1 To Data.Files.Count
  15.                FileName = Mid$(Data.Files.Item(j), InStrRev(Data.Files.Item(j), "\") + 1, Len(Data.Files.Item(j)))
  16.                FileCopy Data.Files.Item(j), Destination & FileName
  17.            Next
  18.        End If
  19.    End If
  20. End Sub
  21.  

GRACIAS POR LEER!!!


Título: Re: Necesito ayuda por favor
Publicado por: AnaCarolina28 en 26 Mayo 2014, 21:03 pm
una imagen vale mas que mil palabras, es asi como quiero.

(http://s2.subirimagenes.com/privadas/previo/thump_2204889dibujo.jpg)


Título: Re: Necesito ayuda por favor
Publicado por: NikNitro! en 26 Mayo 2014, 21:46 pm
Necesitas ayuda? Pues te la daré. Mis consejos son:
1º que edites el título y pongas algo que describa mejor tu problema.
2º que nos muestres lo que llevas hecho para que podamos aconsejarte mejor.

Salud;)


Título: Re: Necesito ayuda por favor
Publicado por: elezekiel en 26 Mayo 2014, 21:59 pm
masomenos se entiende, si lo que queres es copiar un archivo a otro lado hacelo con

Código:
 CopyFile("C:\nombre.rar", "C:\escritorio\nombre.rar") 


algo asi era pero primero tenes que ver el archivo "incrustado" como bien decis en el form.. ese es otro tema..

saluudd


Título: Re: Necesito ayuda por favor
Publicado por: AnaCarolina28 en 26 Mayo 2014, 22:18 pm
de un archivo ole se puede sacar y colocar al escritorio?
sin drag drop.


Título: Re: Necesito ayuda por favor
Publicado por: MCKSys Argentina en 26 Mayo 2014, 23:29 pm
Revisa esto: http://msdn.microsoft.com/en-us/library/aa244164%28v=vs.60%29.aspx (http://msdn.microsoft.com/en-us/library/aa244164%28v=vs.60%29.aspx)

Saludos!


Título: Re: Necesito sacar un archivo
Publicado por: AnaCarolina28 en 27 Mayo 2014, 17:04 pm
y como puedo hacer eso?


Título: Re: Necesito sacar un archivo
Publicado por: 79137913 en 27 Mayo 2014, 22:36 pm
HOLA!!!

Por favor revisa tus bases, si tenes dudas entra a elguille.info que es un muy buen  tutorial.

Aca no hacemos tareas, lee las reglas.

GRACIAS POR LEER!!!


Título: Re: Necesito sacar un archivo
Publicado por: MCKSys Argentina en 27 Mayo 2014, 23:23 pm
y como puedo hacer eso?

El link de MSDN que te di, explica como funciona el metodo para guardar archivos en disco. Si pones el nombre de ese metodo en google, obtendras ejemplos de su uso.

Saludos!