The Scripting Fiad

Bom dia!! Tô gostando de postar as peripécias aqui no blog... E acabei de fazer mais uma.

E é SCRIPT VBS!! hehehe

Aqui no escritório implantei a seguinte estrutura de pastas

FINANCEIRO

|_ (Pasta do Cliente)

COBRANCA

|_ (Pasta do Cliente)

CADASTRO

|_ (Pasta do Cliente)

GERENCIA

|_(Pasta do Cliente)

Esta estrutura é nova e os usuários ainda não se acostumaram. Nossa diretora (Minha sócia e minha mamae.. ai que meigo) criou uma pasta na raiz do compartilhamento com o nome do novo cliente e jogou um monte de coisas lá.

Traduzindo, mais trabalho pra mim. Tive que criar a pasta do cliente em cada sub-diretório da nova estrutura e separar a documentação e jogar cada um na sua respectiva pasta.

Para evitar isto, bloqueei a criação de pastas na raiz do compartilhamento e no lugar deixei um atalho para um script VBS que cria automaticamente a pasta desejada dentro de cada subdiretório corretamente. O script segue abaixo.

'Script para Criação de novo diretório quando empresa adquire novo cliente

'Criado Por Felipe Gustavo Fiad

On Error Resume Next

' Cria objetos padrão

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Caixa de entrada para o usuário digitar a nova pasta

strPasta = InputBox("Digite o nome da Nova Pasta" & VbCrLf & "", ,"" )

' Cria pasta na Gerência

strGerencia = "\\SRVADM\DEPARTAMENTAL\GERENCIA\" & strPasta

Set objFolder = objFSO.CreateFolder(strGerencia)

' Cria pasta no Financeiro

strFinanceiro = "\\SRVADM\DEPARTAMENTAL\FINANCEIRO\" & strPasta

Set objFolder = objFSO.CreateFolder(strFinanceiro)

' Cria pasta na Cobranca

strCobranca = "\\SRVADM\DEPARTAMENTAL\COBRANCA\" & strPasta

Set objFolder = objFSO.CreateFolder(strCobranca)

' Cria pasta no Cadastro

strCadastro = "\\SRVADM\Departamental\Cadastro\" & strPasta

Set objFolder = objFSO.CreateFolder(strCadastro)