Visual Basic - Guardo fichero con Filecopy y se abre en lectura??

Life is soft - evento anual de software empresarial
 
Vista:

Guardo fichero con Filecopy y se abre en lectura??

Publicado por FELIXUCO (6 intervenciones) el 17/02/2005 19:57:40
porque solo puedo abrir el fichero en modo solo lectura haciendo esto:

CommonDialog1.ShowOpen
archOrigen = CommonDialog1.FileName
If archOrigen = "" Then
MsgBox "No se ha guardado ningun Documento", vbQuestion + vbInformation, "Atencion"
Exit Sub
ElseIf archOrigen <> "" Then
Nombre = Label4.Caption
ruta = "R:\ARCHIVO DOCUMENTAL\" & Nombre & ".doc"
FileCopy archOrigen, ruta
Else:
Exit Sub
End If

y el caso peor es que donde lo lleva no me deja borrarlo tampoco alguna solucion por fi quedo a la espera de vuestros post
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:Guardo fichero con Filecopy y se abre en lectur

Publicado por miguel (1042 intervenciones) el 18/02/2005 00:54:33
Prueba con esto, este ejemplo copia un archivo de una ruta a otra con el objeto FileSystemObject para esto debes de dar de alta la referencia "Microsoft Scripting Runtime"...
Private Sub cmdStatusFile_Click()
On Error GoTo Err_Handler
Dim fso As New FileSystemObject

CommonDialog1.CancelError = True
Text1.Text = ""

CommonDialog1.Filter = "All File *.* (*.*)|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = CommonDialog1.FileName
fso.CopyFile Text1.Text, "C:\38d\" 'Copia el archivo
End If
Exit Sub
Err_Handler:
If Err = 32755 Then
Text1.Text = ""
Text1.SetFocus
Else
MsgBox "An error has occurred! " & vbCrLf & vbCrLf & Err & ": " & Error & " ", vbExclamation
End If
End Sub
Pruebalo si sigue el error te mando el ejemplo o viceversa para verficarlo.
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

RE:Guardo fichero con Filecopy y se abre en lectur

Publicado por FELIXUCO (6 intervenciones) el 18/02/2005 16:12:28
lo estoy probando ya te posteare resultado un saludo miguel
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

RE:Guardo fichero con Filecopy y se abre en lectur

Publicado por Felixuco (6 intervenciones) el 18/02/2005 19:54:51
Confirmado todo ok, he tenido que retocarlo para lo que yo lo queria pero rula , Una maquina miguel un saludo y dime donde quieres la cervecita. Gracias
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

RE:Guardo fichero con Filecopy y se abre en lectur

Publicado por Benjo (679 intervenciones) el 18/02/2005 01:39:10
FELIXUCO, tené en cuenta que si intentas utilizar la instrucción FileCopy en un archivo abierto , se producirá un error.
Con una instrucción de detección de errores podríasdetectar que es lo que sucede.
Filecopy cuando copia no deja abierto el manejador del archivo por lo cual se descartaría un posible bugs. Igualmente sería conveniente te instales el ServicePack
El Objeto FileSystemObject al que hace mención Miguel es mucho más ductil que el FileCopy de Visual. Podrías intentar con ese.
Suerte.

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