¿Por qué mi código no funciona?

angeli
06 de Febrero del 2004
Public sub ....(procedimiento inicial)
...,
EL NOMBRE DEL ARCHIVO SE GUARDA EN LAS PROPIEDADES DEL DOCUMENTO
'Guarda el documento en otro directorio distinto del original
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = Documents(1)
Call DirecAtes
Call Definitivo
Call ElimDiligTemp
'
Unload F01Inicio
End Sub
--------------------------------------------------------------------------------------
Public Sub DirecAtes()
On Error GoTo DrFin
MkDir "C:DILIGENCIAS"
DrFin:
Err.Clear
End Sub
--------------------------------------------------------------------------------------
Public Sub Definitivo()
On Error GoTo FinGuarda
With Application.FileSearch
.FileName = "Atestado" & Year(Now) & "_" & strNAtest
.LookIn = "C:DILIGENCIAS"
.Execute
If (.FoundFiles.Count) = 0 Then
strArchiv = "Atestado" & Year(Now) & "_" & strNAtest
Else
icontador1 = (.FoundFiles.Count) + 1
strArchiv = "Atestado" & Year(Now) & "_" & strNAtest & "_" & icontador1
End If
End With
'
ChangeFileOpenDirectory "C:DILIGENCIAS"
ActiveDocument.SaveAs FileName:=strArchiv, FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=True, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False , SaveFormsData:=False, SaveAsAOCELetter:=False
'
MsgBox "Su atestado ha sido guardado de forma definitiva en la carpeta DILIGENCIAS" & " con el nombre de " & strArchiv, vbInformation, "INSTRUCTOR"
FinGuarda:
If Err <> 0 Then
MsgBox "Se ha producido un error al intentar guardar este Atestado: " _
& "Guárdelo Usted mismo (preferentemente en la carpeta DILIGENCIAS, " _
& "sino perderá todos los datos.", vbInformation, "INSTRUCTOR"
Err.Clear
End If
End Sub
----------------------------------------------------------------------------------------------
Public Sub ElimDiligTemp()
&#8216;elimina el archivo original
On Error Resume Next
strArchiv = ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)
Kill ("C:Atestados Pendientes" & strArchiv)
'
If Err <> 0 Then
MsgBox "INSTRUCTOR no ha podido eliminar el archivo temporal " _
& strArchiv & " de la carpeta Atestados Pendientes. Para evitar sobrecargar " _
& "su disco duro con archivos en desuso, ELIMINE dicho" _
& " archivo de forma manual. ", vbInformation _
, "¡¡¡ATESTADO FINALIZADO!!!"
Err.Clear
End If
End Sub
eL ERROR CONSISTE EN NO ELIMINAR EL ARCHIVO DE ORIGEN

en?
06 de Febrero del 2004
es probable que sea porque tiene el atributo ReadOnly, la función Kill no deja eliminarlos, cambiale el atributo, y a ver que pasa.

SetAttr "C:Atestados Pendientes" & strArchiv, vbNormal
y luego Kill

angeli
06 de Febrero del 2004
el archivo no tiene ninguna protección, sus atributos son los normales de un documento de word y cuando esa misma acción se ejecuta con el ratón, lo envía a la papelera de reciclaje sin problemas. ¿cual es la api de windows relativa a la papelera de reciclaje?

en?
06 de Febrero del 2004
y cuál es el número de error que te da al ejecutar la instrucción del Kill?