Visual Basic para Aplicaciones - UREGENTE cambiar nombre archivo

Life is soft - evento anual de software empresarial
 
Vista:

UREGENTE cambiar nombre archivo

Publicado por nestor (10 intervenciones) el 12/10/2004 23:42:12
Tengo dos dudas:
1. Necesito conocer algun codigo o comando para que me diga si la carpeta o file "C:\Tem_Sum\" se encuentra o no.
2. Necesito conocer algun codigo o comando que me ayude a copiar un archivo de una carpeta (C:\fuente) a otra (C:\destino) y que su nombre ("C\fuente\prueba1.mdb") sea igual al archivo al nombre de la carpeta destino (C:\destino\prueba.mdb")

Gracias!!!!!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:UREGENTE cambiar nombre archivo

Publicado por Cristian (27 intervenciones) el 13/10/2004 00:42:55
Hola
Aqui te coloco el codigo de lo que necesitas

Private Sub Command1_Click()
'Esto verifica si el directorio existe o no
Dim Carpeta As String
Carpeta = Dir("C:\Tem_Sum\", vbDirectory)
If Carpeta <> "" Then
MsgBox "El directorio existe", vbInformation
Else
MsgBox "El directorio no existe", vbCritical
End If
'***********************************************
'Con esto copias un archivo de un directorio a otro
FileCopy "C:\Fuente.mdb", "C:\Destino\Fuente.mdb"
End Sub
'**************************************************************

Pero te informo que no se puede colocar caracteres especiales a los nombres de los archivo asi que lo que quieres no se puede y uno de esos caracteres es el "\" ya que esto es para la ruta de las carpetas
y no puedews hacer esto "C\fuente\prueba1.mdb")

Saludos
http://www.theemulator.tk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar