Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 19, 2008, 05:18:15
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: copiar archvos a carpetas del sistema.. system32 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: copiar archvos a carpetas del sistema.. system32  (Leído 240 veces)
J@Ker Lo10
Habitual
*****
Desconectado Desconectado

Mensajes: 200


'LA PRimeR @ VivE' J @Ker LOlo

???? ???? ????
Ver Perfil
« en: Octubre 13, 2006, 12:21:27 »
hola..

mi problema es como copiar archivos a carpetas del sistema
como system32
con este codec.. me sale un error de "permiso denegado"
alguien podria darme un tip

On Error Resume Next
   Dim checkFile As String
   checkFile = Dir$(App.Path & "\archivo.ext")
   If checkFile = "archivo.ext" Then
      FileCopy App.Path & "\archivo.ext", "C:\WINDOWS\system\archivo.ext"
   End If
 If Err.Number > 0 Then
   MsgBox Err.Number & ":" & Err.Description, vbExclamation, "Xd jk"
 End If
En línea
El ConoCIMIenTo no lleGA poR si solo,
soLO kE el MEdio pARA oBteNERlo es ..........
Hendrix
Visitante
« Respuesta #1 en: Octubre 13, 2006, 12:45:42 »
ami esto no me da error pero no me sale nada en esta varaible:

Código:
Dim checkFile As String
checkFile = Dir$(App.Path & "\archivo.ext")

Exactamente ke kieres hacer??? ke si TU archivos se llama de determinada manera actue de un modo y sino de otro???

Salu2
En línea
J@Ker Lo10
Habitual
*****
Desconectado Desconectado

Mensajes: 200


'LA PRimeR @ VivE' J @Ker LOlo

???? ???? ????
Ver Perfil
« Respuesta #2 en: Octubre 13, 2006, 01:15:15 »
primero debes de tener el archivo "archivo.ext" en el path de donde corras el programa...
ok..


On Error Resume Next
   Dim checkFile As String
   checkFile = Dir$(App.Path & "\archivo.ext")  'comprueba que el archivo exista
   If checkFile = "archivo.ext" Then 'si existe entonces
     'lo copia en la ruta destino..
      FileCopy App.Path & "\archivo.ext", "C:\WINDOWS\system\archivo.ext"
   End If


'''''''''''''''''''''''
si no existe entonces es ovio ke no vas a ver nada...
peor el punto esencial.. es como copiar con permisos.. a system32 un archivo X
 If Err.Number > 0 Then
   MsgBox Err.Number & ":" & Err.Description, vbExclamation, "Xd jk"
 End If
En línea
El ConoCIMIenTo no lleGA poR si solo,
soLO kE el MEdio pARA oBteNERlo es ..........
Hendrix
Visitante
« Respuesta #3 en: Octubre 13, 2006, 01:27:49 »
Ahh!!! oka...yo para verifikar si un fichero existe uso otra funcion...

Código:
Function Existefichero(ByVal FileName As String) As Boolean
    Dim fileFile As Integer
    fileFile = FreeFile
    On Error Resume Next
    Open FileName For Input As fileFile
    If Err Then
        Existefichero = False
    Else
        Close fileFile
        Existefichero = True
    End If
End Function

Asi si existefichero es true existe y sino pues es false....

Vamos a lo del sistem...komo ke no tienes permisos???a ke te refieres??? :-\ :-\

Salu2
En línea
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #4 en: Octubre 13, 2006, 03:34:43 »
mmm, yo tampoco entiendo lo de los permisos...tal vez tenga algo que ver con la config. de tu os.

code que recomiendo para verificar si un arch. existe:

Option Explicit
Dim fso As Object
Private Sub Form_Load()
  Set fso = CreateObject("Scripting.FileSystemObject")
   If fso.FileExists("c:\%.txt") Then
       'aca van las acciones, si es que el arch. existe
Else
    MsgBox "no existe"
End If
End Sub

FileSystemObject =)

Saludos.
Biocode.
En línea
J@Ker Lo10
Habitual
*****
Desconectado Desconectado

Mensajes: 200


'LA PRimeR @ VivE' J @Ker LOlo

???? ???? ????
Ver Perfil
« Respuesta #5 en: Octubre 13, 2006, 10:46:57 »
hola.. gracias por sus aportes..

yA vi mi error:
lo ke pasa..es ke queria copiar un arhivo ke por milesismas de segundos
estaba ya ocupando...

entonces me mostraba un error:
msgbox "Error 70: acceso denegado"

eso es todo gracias..
En línea
El ConoCIMIenTo no lleGA poR si solo,
soLO kE el MEdio pARA oBteNERlo es ..........
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #6 en: Octubre 14, 2006, 07:05:39 »
Debias controlar dichas milesimas...o directamente, borrar el archivo.

me alegro que lo hayas solucionado, ya puedes cerrar este thread asi no empiezan respuestas ni aportes que agranden esto sin sentido.

Saludos.
Biocode.
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: copiar archvos a carpetas del sistema.. system32 « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC