• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Byakuya

Vb problema em acrescentar

5 mensagens neste tópico

Bom dia,

Tenho uma duvida que e a seguinte: tenho uma conta Exchange e utilizo o exmerge para poder fazer um backup.

Crio um Ficheiro nomeado Createlist.vbs e dentro tenho as linhas seguintes:

For Each User in CNUsers

    oTakeList = User.legacyExchangeDN

    DisplayName = User.displayName

    WScript.Echo  " "& oTakeList

      oUserlist.Writeline(" "& oTakeList)

Next

O meu problema e que quero acrescentar em vez de apagar o conteúdo do ficheiro!

                          oUserlist.Writeline(" "& oTakeList) em vez disto por : "..."

Desculpem a minha falta de assentos nos "e"  mas não funcionam.

E o assunto da mensagem também não e muito clara mas não tinha ideia de como nomear a minha mensagem.

Obrigado desde já

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

http://www.homeandlearn.co.uk/NET/nets8p5.html

Fala sobre isso... basicamente quando defines o objecto para escrita...

To append text to a file, you type a comma after your file name then type the word True:

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

Tem que mandar mais um parametro a indicar que é para acrescentar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Set CNUsers = GetObject ("LDAP://OU=****,OU=****,OU=**** Users,DC=****,DC=****,DC=****")

CNUsers.Filter = Array("user")

'*****************************************

'leitura e carreguamento dos ficheiros .pst num log

'*****************************************

For Each User in CNUsers

     oTakeList = User.legacyExchangeDN

     DisplayName = User.displayName

     WScript.Echo  " "& oTakeList

     oUserlist.Writeline(" "& oTakeList)

Next

'*****************************************

'outra vez mas agora pa outro "livro" .pst

'*****************************************

Set CNUsers = GetObject ("LDAP://Ou=****,OU=****=OU=**** Users,DC=***,DC=****,DC=***")

CNUsers.Filter = Array("user")

For Each User in CNUsers

     oTakeList = User.legacyExchangeDN

     DisplayName = User.displayName

     WScript.Echo  " "& oTakeList

     oUserlist.Writeline(" "& oTakeList) -> aqui deveria por oUserlist.Writeline(" "& oTakeList,True) ???

Next

Nao funciona, so se nao precisar de lancar 2 vezes a mesma rotina mas sim acrescentar umas linhas da segunda rotina a primeira?!?

Ps: Os **** sao os caminhos da minha base de Exchange

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tu estas a reescrever o mesmo ficheiro..penso eu...

oUserlist representa o teu ficheiro.. estas a escrever duas vezes a mesma coisa... e no mesmo ficheiro...

basicamente estas a duplicar o processo...

Experimenta so com a 2 rotina..e com o valor do Writeline a true

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Problema Resolvido no fim fica assim era simples mas era preciso faze-lo

Set CNUsers = GetObject ("LDAP://OU=****,OU=****,OU=**** Users,DC=****,DC=****,DC=****")

CNUsers.Filter = Array("user")

For Each User in CNUsers

    oTakeList = User.legacyExchangeDN

    DisplayName = User.displayName

    WScript.Echo  " "& oTakeList

    oUserlist.Writeline(" "& oTakeList)

Next

Set CNUsers = GetObject ("LDAP://Ou=****,OU=****=OU=**** Users,DC=***,DC=****,DC=***")

CNUsers.Filter = Array("user")

For Each User in CNUsers

    oTakeList = User.legacyExchangeDN

    DisplayName = User.displayName

    WScript.Echo  " "& oTakeList

    oUserlist.Writeline(" "& oTakeList)

Next

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora