Cuestión : Preguntar a usuario si desean sobreescribir el archivo existente

Hola, el

I tiene el código siguiente en un botón del cmd que ahorre un documento en mi base de datos.  El AhEmptyName: la sección deja a usuario incorporar un nuevo nombre para el documento si un documento con el mismo nombre está ya en el directorio.  Aunque esto trabaje muy bien, quisiera el usuario hiciera que la opción a sobreescriba el documento existente o elija un nuevo nombre.  ¿Similar a la función de ahorro en otros programas cuando encuentra un archivo con las mismas pistas de name.

Any?  ¿Apenas incluyo un método de la matanza para quitar el archivo del exisitng y después para continuar con el resto del código?

Thanks,
Tom class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
class= cmdAttach_Click secundario " del id= " codeSnippet692167 del 
Private " notpretty " ()
'En errline indicado del error
    
    DB dévil como dao. Base de datos
    Rs déviles como dao. Recordset
    LastSlash dévil como número entero
    Fname dévil como secuencia
    DestinationPathAndName dévil como secuencia
    strFolder dévil como secuencia
    
    
    Fijar DB = CurrentDb
    Fijar los rs = db.OpenRecordset (“tbl_documents”, dbOpenDynaset, dbSeeChanges, dbOptimistic)
    
    Si no IsNull (Me.document_path) o no IsNull (Me.file_type) entonces
    
     LastSlash = InStrRev (Me.document_path, “\ ") 'la localización de la raya vertical pasada antes del nombre de fichero
     fname = mediados de (Me.document_path, LastSlash + 1) 'el nombre de fichero sin la trayectoria
     
     DestinationPathAndName = GBLnetworkStoragePath y “\” y “documentos”
     Si Len (Dir (GBLnetworkStoragePath y “\” y “documentos”, vbDirectory)) > 0 entonces
    El 'directorio existe

    'Crear la carpeta
    MkDir GBLnetworkStoragePath y “\” y “documentos”
Terminar si
         
 
CheckAgain:
'comprobar si existe el nombre de fichero, antes de copiar el nuevo archivo
Si "" del <> de Dir (DestinationPathAndName y “\” y fname) entonces
   'existe, así que dejarnos preguntan a usuario a
AhEmptyName:
    fname = InputBox (“incorporar por favor un nuevo nombre de fichero.  Usted debe incluir el archivo extension.")
    Si Len (ajuste (fname)) = 0 entonces
    MsgBox “incorpora por favor un nombre de fichero”
    AhEmptyName indicado
Terminar si

   'comprobemos otra vez la nueva existencia del nombre de fichero
   CheckAgain indicado

   'no hace existe, así que dejar el flujo del código continuar
Terminar si
 
 
     FileCopy Me.document_path, DestinationPathAndName y copia “\” y del fname 'el archivo a la nueva destinación
   
        rs.AddNew
        rs (“document_desc”) = Me.document_desc
        rs (“company_id”) = pany_id de Me.com
        rs (“file_type”) = Me.file_type
        rs (“accesorio”) = Me.chkAttachment
        los rs (“document_path”) = DestinationPathAndName y” \ “y fname 'asignan la nueva localización a la tabla

        rs. Actualización
    
        MsgBox “que usted necesita hojear para un documento y seleccionar un tipo de archivo. ”, vbCritical, “error”
        Me.document_desc.SetFocus
    Terminan si
    rs. Cierre
    DB. Cierre
    Documento de MsgBox el “se ha ahorrado a este contacto de la compañía. ”, vbInformation, “documento de la fijación”
    
    Fijar los rs = nada
    Fijar DB = nada
    DoCmd.Close


exitline:
  Salir el submarino
     
errline:
Seleccionar el caso Err.Number
Caso 94
MsgBox “allí es campos en blanco”, vbExclamation, “error…”
Caso 2450
MsgBox “ContactPLUS necesita recomenzar”, vbExclamation, “error…”
Recomenzar de la llamada
Caso 
MsgBox “un error ha ocurrido.  Notificar por favor a administrador de base de datos del número de error siguiente: ” Y Err.Number y el vbCrLf y “el mensaje de error es: ” Y Err.Description
Exitline indicado
Extremo selecto
Submarino del extremo
class= del

Respuesta : Preguntar a usuario si desean sobreescribir el archivo existente

Hola otra vez,

¿usted funcionó realmente el “cfgmgr - v fcs0”?

Porque esto es un error de sintaxis (el formato correcto habría sido el “cfgmgr - v - l fcs0”)
¡no es ninguna maravilla que el cfgmgr no hizo lo que usted esperó… pero usted debe haber visto un mensaje de error!

¡“- La bandera de v” significa solamente “prolijo” y no tiene ninguna influencia en la funcionalidad de los cfgmgr!

De todas formas, “- l (nombre)” el parámetro da instrucciones el cfgmgr para configurar al dispositivo (nombre) y a todos sus niños,
tan con el formato antedicho usted debe por lo menos haber visto a los niños fscsix0 del fcsx, y con el método de la configuración de HDLM las trayectorias apropiadas deben estar allí, también.

el “cfgmgr” solamente (o con” - v ") por una parte intentaría configurar cualquier dispositivo que encuentre.

Tan si usted utilizara realmente el “cfgmgr - v - l fcs0” sin éxito podría ser que Hitachi DLM tendría cierto método especial que no se acciona junto con la configuración del fcsx.

Es hace algunos años eso que nuestro relámpago pasado de HDS consiguió desechado, así que temo que usted tenga que fijar la salida del “lsdev - C” o aún “lscfg” para que compruebe, si usted quisiera cavar más profundo en esto.


wmp
Otras soluciones  
 
programming4us programming4us