Boas,
Pessoal estou precisando criar uma rotina para a criação de subpasta, hoje já crio a pasta, mas por padrão da empresa preciso criar as subpastas no servidor. No BD utilizo a rotina abaixo:
Na criação desta pasta preciso criar mais as subpastas.
Documentos
Entrada_Saida
NC_Clientes
NC_Empresa
Pecas_Plasticas
Registos_Producao
Teste_Acido
Desde já agradeço as ajudas que tenho até o momento.
Pessoal estou precisando criar uma rotina para a criação de subpasta, hoje já crio a pasta, mas por padrão da empresa preciso criar as subpastas no servidor. No BD utilizo a rotina abaixo:
Na criação desta pasta preciso criar mais as subpastas.
Documentos
Entrada_Saida
NC_Clientes
NC_Empresa
Pecas_Plasticas
Registos_Producao
Teste_Acido
- Código:
On Error Resume Next
Dim fso As Object
Dim Pasta As String
Dim numcrtl As String
Dim nummld As String
Dim nmclt As String
Dim ext As String
Dim Caminho As String
numcrtl = Form_Documento_Controlo.Num_Doc_Controlo.Value
nummld = Form_Documento_Controlo.NumeroMolde.Value
nmclt = Form_Documento_Controlo.NomeCliente.Value
Pasta = "\\2425FS01\Jobs\DB_Sis_Fabrico_em_teste\" & numcrtl & "-" & nummld & "-" & nmclt
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Pasta) Then ' verifica se já existe a pasta
Else
MkDir Pasta ' se não existir cria
End If
Desde já agradeço as ajudas que tenho até o momento.