Pergunta : Perguntar a usuário se desejam overwrite lima existente

Olá!, o

I tem o seguinte código em uma tecla do cmd que conserve um original em minha base de dados.  O AhEmptyName: a seção deixa o usuário dar entrada com um nome novo para o original se um original com o mesmo nome está já no diretório.  Embora isto trabalhasse está bem, eu gostaria do usuário de mandar a opção a overwrite o original existente ou escolher um nome novo.  Similar à função de salvaguarda em outros programas quando encontrar uma lima com os mesmos indícios de name.

Any?  Eu apenas incluo um método da matança para remover a lima do exisitng e para continuar então com o descanso do código?

Thanks,
Tom class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 secundário " do id= " codeSnippet692167 do 
Private " notpretty " ()
'No errline empreendedores do erro
    
    DB não ofuscante como o dao. Base de dados
    Rs não ofuscantes como o dao. Recordset
    LastSlash não ofuscante como o inteiro
    Fname não ofuscante como a corda
    DestinationPathAndName não ofuscante como a corda
    strFolder não ofuscante como a corda
    
    
    Ajustar DB = CurrentDb
    Ajustar rs = db.OpenRecordset (“tbl_documents”, dbOpenDynaset, dbSeeChanges, dbOptimistic)
    
    Se não IsNull (Me.document_path) ou não IsNull (Me.file_type) então
    
     LastSlash = InStrRev (Me.document_path, “\ ") 'a posição do último corte antes do nome de arquivo
     fname = meados de (Me.document_path, LastSlash + 1) 'o nome de arquivo sem trajeto
     
     DestinationPathAndName = GBLnetworkStoragePath & “\” & “originais”
     Se Len (Dir (GBLnetworkStoragePath & “\” & “originais”, vbDirectory)) > 0 então
    'O diretório existe
Mais
    'Criar o dobrador
    MkDir GBLnetworkStoragePath & “\” & “originais”
Terminar se
         
 
CheckAgain:
'verific se o nome de arquivo existe, antes de copiar a lima nova
Se "" do <> de Dir (DestinationPathAndName & “\” & fname) então
   'existe, assim que deixar-nos perguntam ao usuário a
AhEmptyName:
    fname = InputBox (“incorporar por favor um nome de arquivo novo.  Você deve incluir a lima extension.")
    Se Len (guarnição (fname)) = 0 então
    MsgBox “incorpora por favor um nome de arquivo”
    AhEmptyName empreendedores
Terminar se

   'deixar-nos verific outra vez na existência nova do nome de arquivo
   CheckAgain empreendedores
Mais
   'não faz existe, assim que deixar o fluxo do código continuar
Terminar se
 
 
     FileCopy Me.document_path, DestinationPathAndName & cópia “\” & do fname 'a lima ao destino novo
   
        rs.AddNew
        rs (“document_desc”) = Me.document_desc
        rs (“company_id”) = pany_id de Me.com
        rs (“file_type”) = Me.file_type
        rs (“acessório”) = Me.chkAttachment
        os rs (“document_path”) = DestinationPathAndName &” \ “& fname 'atribuem a posição nova à tabela

        rs. Atualização
    Mais
        MsgBox “que você precisa de consultar para um original e de selecionar um tipo de lima. ”, vbCritical, “erro”
        Me.document_desc.SetFocus
    Terminam se
    rs. Fim
    DB. Fim
    Original de MsgBox o “foi conservado a este contato da companhia. ”, vbInformation, “original do anexo”
    
    Ajustar rs = nada
    Ajustar DB = nada
    DoCmd.Close


exitline:
  Retirar o submarino
     
errline:
Selecionar o caso Err.Number
Caso 94
MsgBox “lá é campos em branco”, vbExclamation, “erro…”
Caso 2450
MsgBox “ContactPLUS precisa de reiniciar”, vbExclamation, “erro…”
Reinício da chamada
Caso mais
MsgBox “um erro ocorreu.  Notificar por favor o administrador de base de dados do seguinte número de erro: ” & Err.Number & o vbCrLf & “a mensagem de erro são: ” & Err.Description
Exitline empreendedores
Extremidade seleta
Submarino da extremidade
class= do

Resposta : Perguntar a usuário se desejam overwrite lima existente

Olá! outra vez,

você funcionou realmente o “cfgmgr - v fcs0”?

Porque este é um erro de sintaxe (o formato correto seria o “cfgmgr - v - l fcs0”)
não é nenhuma maravilha que o cfgmgr não fêz o que você esperou… mas você deve ter visto uma mensagem de erro!

“- A bandeira de v” significa somente “verbose” e não tem nenhuma influência na funcionalidade dos cfgmgr!

Em todo o caso, “- l (nome)” o parâmetro instrui o cfgmgr configurar o dispositivo (nome) e todas suas crianças,
assim com o formato acima você deve pelo menos ter visto as crianças fscsix0 do fcsx, e com método da configuração de HDLM os trajetos apropriados devem estar lá, demasiado.

o “cfgmgr” sozinho (ou com” - v ") de um lado tentaria configurar todo o dispositivo que encontrar.

Assim se você usou realmente o “cfgmgr - v - l fcs0” sem sucesso poder-se-ia ser que Hitachi DLM teria algum método especial que não é provocado junto com a configuração do fcsx.

É certos anos há isso que nosso último relâmpago de HDS começ desfeito, assim que eu temo que você tenha que afixar a saída do “lsdev - C” ou mesmo “lscfg” para que eu verific, se você gostaria de escavar mais profundo neste.


wmp
Outras soluções  
 
programming4us programming4us