none
Copiar arquivos e pastas usando Wscript e variável de sistema. RRS feed

  • Pergunta

  • Boa tarde a todos,

    Estou com uma outra dúvida que não consegui resolver pesquisando na net.

    Esse é o script inicial:
    __________________________________________________ ______________

    Dim Aviso
    Aviso = MsgBox ("A Cópia será iniciado. Deseja continuar", vbYesNo, "Iniciar cópia")
    If Aviso = vbyes Then

    Set objShell = CreateObject("WScript.Shell")
    Set objEnvironment = objShell.Environment("process")
    homepath = objEnvironment("homepath")

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH"

    Else

    MsgBox "Cópia cancelada pelo usuário"

    End if
    __________________________________________________ _________

    Mas agora eu gostaria de criar uma pasta com o nome do usuário e depois enviar a cópia para essa nova pasta. Tentei usar variáveis de ambiente, mas não funcionou.

    Alguém pode me ajudar?

    Desde já, obrigado
    terça-feira, 31 de maio de 2011 19:48

Respostas

  • Segue alteracoes em Negrito. Ele cria a pasta com o nome do usuario atual dentro do compartilhamento que estava no seu script.

    Set WSHNetwork = CreateObject("WScript.Network")
    strUsername = WSHNetwork.UserName

    Dim Aviso
    Aviso = MsgBox ("A Cópia será iniciado. Deseja continuar", vbYesNo, "Iniciar cópia")
    If Aviso = vbyes Then

    Set objShell = CreateObject("WScript.Shell")
    Set objEnvironment = objShell.Environment("process")
    homepath = objEnvironment("homepath")

     


    Set fso = CreateObject("Scripting.FileSystemObject")

     FSO.CreateFolder("\\192.168.100.125\Teste_WSH" & "\" & strUsername)
     fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH & "\" & strUsername"

    Else

     MsgBox "Cópia cancelada pelo usuário"

    End if


    Fábio de Paula Junior
    terça-feira, 31 de maio de 2011 23:10
    Moderador
  • Grande Fábio,

     

    Achei o erro!!!

    Essa é a linha antiga:

    fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH & "\" & strUsername"

     

    Foi só trocar as posições das aspas:

    fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH" & "\" & strUsername

     

    Muito obrigado Fábio, me mostrou o caminho e lhe sou muito grato.

    sexta-feira, 3 de junho de 2011 13:50

Todas as Respostas

  • Segue alteracoes em Negrito. Ele cria a pasta com o nome do usuario atual dentro do compartilhamento que estava no seu script.

    Set WSHNetwork = CreateObject("WScript.Network")
    strUsername = WSHNetwork.UserName

    Dim Aviso
    Aviso = MsgBox ("A Cópia será iniciado. Deseja continuar", vbYesNo, "Iniciar cópia")
    If Aviso = vbyes Then

    Set objShell = CreateObject("WScript.Shell")
    Set objEnvironment = objShell.Environment("process")
    homepath = objEnvironment("homepath")

     


    Set fso = CreateObject("Scripting.FileSystemObject")

     FSO.CreateFolder("\\192.168.100.125\Teste_WSH" & "\" & strUsername)
     fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH & "\" & strUsername"

    Else

     MsgBox "Cópia cancelada pelo usuário"

    End if


    Fábio de Paula Junior
    terça-feira, 31 de maio de 2011 23:10
    Moderador
  • Grande Fábio,

     

    Muito obrigado pela ajuda. Você não imagina a luz que me deu!

    Esse script deu erro na linha que faz a cópia dos arquivos diz que são termos incompatíveis. Então quando eu tiro o trecho [ ... & "\" & strUsername"] e concluo com o nome literal [\\192.168.100.125\Teste_WSH\administrador], a cópia é feita perfeitamente.

    Que detalhe estamos esquecendo?

     

    Muito obrigado,

    Luciano Cordilha.

    sexta-feira, 3 de junho de 2011 13:45
  • Grande Fábio,

     

    Achei o erro!!!

    Essa é a linha antiga:

    fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH & "\" & strUsername"

     

    Foi só trocar as posições das aspas:

    fso.CopyFile homepath&"\Desktop\Scripts\*.pdf", "\\192.168.100.125\Teste_WSH" & "\" & strUsername

     

    Muito obrigado Fábio, me mostrou o caminho e lhe sou muito grato.

    sexta-feira, 3 de junho de 2011 13:50