Jump to content
Sign in to follow this  
Byakuya

Vb problema em acrescentar

Recommended Posts

Byakuya

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á

Share this post


Link to post
Share on other sites
José Lopes

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.


Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Share this post


Link to post
Share on other sites
Byakuya

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

Share this post


Link to post
Share on other sites
José Lopes

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


Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Share this post


Link to post
Share on other sites
Byakuya

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.