Imprimir Página - Copia De Archivos

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Lunes 13 de Junio de 2005, 11:39

Título: Copia De Archivos
Publicado por: FRIJU en Lunes 13 de Junio de 2005, 11:39

Hola Conpañer@s!
Alguien tiene hecho por código, la copia de ficheros de un servidor, de una ruta concreta, que posiblemente no el usuario no tenga acceso, pero sin que sepa el usuario enviamos el usuario y contraseña de administrador del servidor y lo copiamos enotra ruta donde el usuario lo pueda leer.

No se si está claro? :unsure:

Título: Re: Copia De Archivos
Publicado por: Widark en Lunes 13 de Junio de 2005, 15:37

Hola FRIJU!

Si le entendi bien aqui esta:

Código: Text

Declare Function Backup Lib &#34;Kernel32&#34; Alias &#34;CopyFileA&#34; _
(ByVal lpexistingfilename As String, ByVal lpnewfilename As String, ByVal bfailifexists As Long) As Long Rem Esta linea va en un modulo
 
Backup_DB RutaOrigen, RutaDestino
 
Sub Backup_DB(strDBActual As String, strDBBackup As String) Rem Este es tambien va en un modulo
  Dim Result As Long
  
      If Dir(strDBActual) = &#34;&#34; Then
         MsgBox Chr(34) & RutaDestino & Chr(34) & &#34;. Este no es un nombre valido.&#34;
      Else
         Result = Backup(RutaOrigen, RutaDestino, False)
      End If
      
End Sub
 
 

espero le sirva, saludos.

Título: Re: Copia De Archivos
Publicado por: FRIJU en Lunes 13 de Junio de 2005, 15:48

hola Widark!
Muchas gracias por contestar, pero el tema es el siguiente, temgo un fichero o documento en un servidor de mi empresa, yo soy el administrador.
Quiero que otra persona pueda ver ese documento pero no desde la ubicación que tengo yo, si no realizar una copía de ese documento a otra unidad para que el usuario lo visualice y en cuanto lo visualice lo destrullo.
El tema es que si intento entrar a una unidad personal de la empresa, el servidor no le va ha dejar verlo ni copiar por tema de autorizaciones.
Yo lo que quiero mediante código pasarle el usuario y contraseña de administrador
del servidor, para abrirlo de "patas", durante la copia, el servidor sin darse cuenta de esto el usuario y luego despues de haber realizado la copia cerrar la autorización.

No se si me he explicado, de todas formas Widark muchisimas gracias por tu contestación.
:hola: Un saludo.

Título: Re: Copia De Archivos
Publicado por: Widark en Lunes 13 de Junio de 2005, 16:27

Hola de nuevo!

Pues si te entendi mal, pero en ese caso si me corchaste :D yo apenas soy un pinche aprendiz, que pena no poderlo ayudar :( .

Saludos.

Título: Re: Copia De Archivos
Publicado por: FRIJU en Lunes 13 de Junio de 2005, 16:29

Hola Widark!
Lo que importa es la intención, muchismas gracias de todas formas :comp:

Título: Re: Copia De Archivos
Publicado por: RadicalEd en Lunes 13 de Junio de 2005, 17:51

Y de que es el archivo???, si es un documento de office puedes usar la Macro "AutoClose" para eso, cuando el archivo se cierre lo que debes hacer es eliminarlo "Kill".

Ojala te sirva.
Chao

Título: Re: Copia De Archivos
Publicado por: Cyclop en Lunes 13 de Junio de 2005, 19:15

No entendi bien quieres que el usuario copie un archivo que no conoce y no tiene acceso de un servidor y no se a donde ... puedes ser mas explicito???....

Salu2

Cyclopz

Título: Re: Copia De Archivos
Publicado por: FRIJU en Martes 14 de Junio de 2005, 07:10

Hola Cyclop !
Es un programa de documentación conpartida, puede ser un documento de oficce o un dibujo, el caso es que nuestro servidor está repartido por carpetas:
1: Personales
2: Departamentales
3: Compartidas
cada uno guardamos en donde debe, pero puede haber alguna información que pueda ver otra persona de otro departamento y este no tenga autorización.
el caso es que en vez, duplicar la información y con esto problemas con las versiones y en vez de trasladar el probema al administrador de la red teniendo que dar autorizaciones a documentos concretos.
la idea es poder entrar al programa VB ver documetos adjuntos, el usuario no sabe donde se puden encontrar, solamente dará a un botón y se realizará una copia monentanea, para poder visualizarlos, de esos documentos en otra unidad.

Ejemplo:
FileCopy Origen, Destino

Me falta enviar el usuario y contraseña del servidor ya que estoy accediendo a una unidad sin autorización.

Un saludo y muchas gracias por vuestra atención.

Título: Re: Copia De Archivos
Publicado por: Cyclop en Martes 14 de Junio de 2005, 21:22

Lo que tienes que hacer es meter toda las discripcion y ruta del archivo en una base de datos, ejemplo

Descripcion: Presupuesto Año 2005
Archivo : \\server\personales\2005\012005.xls
Accesso : Ok

Y de esa forma van accediendo solo los que tienen permisos

NOTA.- Los nombres de los archivos seria bueno que lo generes de forma aliatoria.

Salu2

Cyclopz

Título: Re: Copia De Archivos
Publicado por: FRIJU en Miércoles 15 de Junio de 2005, 08:25

Hola Cyclop!
Lo de guardar la ruta lo tengo claro, el problema es que no puedo coger el "grandisimo" trabajo de administrar las autorizaciones de las diditintas carpertas del servidor.
De otra manera, me gustaria, acceder al servidor por código, darle el usuario y contraseña del servidor por código y copiar.
Por ejemplo:
Comenzar con la sentencia de cmd :Runas

Igual es complicado lo que pido o las explicaciones no son muy concretas.
De todas formas muchas gracias :comp:

SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Lunes 13 de Junio de 2005, 11:39