CRIANDO SUBPASTAS

SARAGIOTTO 08/09/2023 01:14:50
#501724
Ola pessoal,
alguem saberia me dizer como criar subpastas em vb6 dentro das pastas de clientes e copiar os arquivos dos meses correspondentes para tais pastas?
exemplo
tenho la
PASTA_CLIENTE_1
PASTA_CLIENTE_1
PASTA_CLIENTE_3..... ETC
Dai eu dou um nome para criar uma subpasta (que sera o mesmo nome para todas estas pastas) ex: SETEMBRO2023
Dai ele cria as subpastas:
PASTA_CLIENTE_1/SETEMBRO2023
PASTA_CLIENTE_2/SETEMBRO2023
PASTA_CLIENTE_3/SETEMBRO2023

e dai todos os arquivos que estavam na pasta raiz do determinado cliente que forem do mes de setembro mova para a pasta setembro2023
espero que tenham compreendido meu problema
se puderem me ajudar, agradeco
desde ja, meu obrigado
SARAGIOTTO 09/09/2023 01:34:32
#501730
acredito que seja usando o metodo for..... each, mas para pastas eu nao sei como usar
WEBMASTER 09/09/2023 14:53:10
#501731
Use o FileSystemObject, referencie no seu projeto o Microsoft Scripting Runtime e você tera acesso ao FileSystemObject.
Como ele esse trabalho é bem simples de ser feito
Um exemplo bem bobinho

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
fso.CreateFolder "C:\vbmania\logs"
fso.CreateFolder "C:\vbmania\data"
Set fso = Nothing
Faça seu login para responder
Voltar