Pergunta : Criar o FECHO DE CORRER da lima de grupo sem a utilidade do terceiro

Qualquer um tem uma maneira de criar uma lima de FECHO DE CORRER de uma lima de grupo do DOS sem o uso da utilidade do terceiro? a outra alternativa do

My somente é manter uma lima de FECHO DE CORRER vazia que esteja copiada/rebatizada enquanto eu a preciso e limas do movimento em that.

I preferiria não ter que instalar todas as utilidades do terceiro nas dúzias dos usuários que eu gostaria de funcionar este from.

VBSCript seria aceitável também mas preferiria uma lima de grupo do DOS porque é mais fácil para que outro edite/maintain. class= do

Resposta : Criar o FECHO DE CORRER da lima de grupo sem a utilidade do terceiro

Quando eu compreender porque você não quer instalar um programa para fazer este, você seria aprovado com uma linha de comando do ó partido executável que pudesse ser armazenada no usuário de onde a lima de grupo é funcionada, e ser provida lá?

(Se assim tentativa 7-Zip)

 a linha de comando 7Zip's limas pode funcionar da parte que você chama a lima de grupo de e para não causar nenhumas edições de rede reais porque a lima seria executada no lado de cliente local.

 Embora se você prefere não funcionar remotamente a lima, mas aquela não é necessário para esta lima porque é muito pequena.

 Você pode DL 7Zip aqui: http://www.7-zip.org/download.html


(Se não ver então abaixo)

 Eu encontrei este certificado de VB que os purports a fazer exatamente o que você está procurando, se deve ser feito sem nenhumas limas do ó partido de qualquer sorte, a seguir eu tentaria usar este certificado que de VB eu uni.


 NOTA: Eu não escrevi este certificado, mim encontrei-o aqui: http://www.visualbasicscript.com/m53086.aspx

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:

'Certificado de VB PARA FECHAR uma lima:

 fZip da função (sSourceFolder, sTargetZIPFile)
 'Esta função adicionará todas as limas em um dobrador da fonte a uma lima de FECHO DE CORRER
 “using capacidade nativa do FECHO DE CORRER do dobrador de Windows”.
 'Retorna um inteiro 0 se tudo foi está bem.
  oShellApp não ofuscante, oFSO, iErr, sErrSource, sErrDescription
  Ajustar o oShellApp = o CreateObject (“Shell.Application”)
  Ajustar o oFSO = o CreateObject (“Scripting.FileSystemObject”)
   'O dobrador da fonte precisa de ter a \ na extremidade
   Se (sSourceFolder, 1) “ <> direito \” então sSourceFolder = sSourceFolder & “\”
  No resumo do erro em seguida 
    'Se um FECHO DE CORRER do alvo existe já, suprimir d
    Se oFSO.FileExists (sTargetZIPFile) então oFSO.DeleteFile sTargetZIPFile, retificam 
   iErr = Err.Number
  No erro 0 empreendedores
   Se iErr <> 0 então   
    fZip = iErr
    Retirar a função
   Terminar se
  No erro recomeçar em seguida
   'Escrever o fileheader para um espaço em branco zipfile.
   oFSO.OpenTextFile (sTargetZIPFile, 2, retificam). Escrever o “PK” & o Chr (5) & o Chr (6) & a corda (18, Chr (0))
   iErr = Err.Number
  No erro 0 empreendedores
   Se iErr <> 0 então   
    fZip = iErr
    Retirar a função
   Terminar se
  No erro recomeçar em seguida 
   'Começar copiar limas no fecho de correr do dobrador da fonte.
   oShellApp.NameSpace .CopyHere (sTargetZIPFile) oShellApp.NameSpace (sSourceFolder). Artigos
   iErr = Err.Number
  No erro 0 empreendedores
   Se iErr <> 0 então   
    fZip = iErr
    Retirar a função
   Terminar se
    'Porque o copi ocorre em um processo separado, o certificado apenas continuará.  Funcionar a… LAÇO impedem a função
    'da retirada até a lima é fechar finished.
    Fazer até oShellApp.NameSpace (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
     WScript.Sleep 500
    Laço
  fZip = 0
 Função do fim
Outras soluções  
 
programming4us programming4us