Necesito sacar un archivo

Iniciado por AnaCarolina28, 26 Mayo 2014, 12:56 PM

0 Miembros y 1 Visitante están viendo este tema.

AnaCarolina28

Quiero sacar un archivo del form al escritorio con visual basic 6.0.

79137913

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 (vb) [Seleccionar]
Private Const Destination As String = "C:\Documents and Settings\Administrador\Escritorio\"
' ACA ARRIBA PONES LA UBICACION A DONDE QUERES QUE TE COPIE LOS ARCHIVOS.

Private Sub Form_Load()
    Me.Caption = "Ejemplo para copiar multiples archivos por 79137913 con Drag and drop"
    Me.OLEDropMode = 1
    Me.Show
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim j As Long
    If Data.GetFormat(vbCFFiles) = True Then
        If Not (GetAttr(Data.Files.Item(1)) And vbDirectory) Then
            For j = 1 To Data.Files.Count
                FileName = Mid$(Data.Files.Item(j), InStrRev(Data.Files.Item(j), "\") + 1, Len(Data.Files.Item(j)))
                FileCopy Data.Files.Item(j), Destination & FileName
            Next
        End If
    End If
End Sub


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

AnaCarolina28

una imagen vale mas que mil palabras, es asi como quiero.


NikNitro!

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;)

elezekiel

masomenos se entiende, si lo que queres es copiar un archivo a otro lado hacelo con

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

AnaCarolina28

de un archivo ole se puede sacar y colocar al escritorio?
sin drag drop.

MCKSys Argentina

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."


AnaCarolina28


79137913

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!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

MCKSys Argentina

Cita de: AnaCarolina28 en 27 Mayo 2014, 17:04 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!
MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."