Como faco para usar caracteres curinga em VBScript?

Eu quero copiar todas as pastas com um nome específico de todos os usuários em um computador, mas não sei como eu posso fazer isso. Meu script atual tem esta aparência:

Dim demofolder
definir demofolder = CreateObject ("scripting. FileSystemObject")
demofold.CopyFolder "c:\Documents and Settings\user\Desktop\MyFolder", "c:\Documents and Settings\user\Desktop\MyFolderCopy"

Isso copia a pasta "MyFolder" como "MyFolderCopy" do "" desktop do usuário. Whad eu faço para todos os usuários de busca? Eu pensei que poderia ser tão fácil quanto mudar o caminho para "C:\Documents and Settings \ \Desktop\MyFolder", mas que não funciona. Obrigado por qualquer ajuda!

Resposta

Dim demofolder

Dim dirArr()

dir2Arr ' chamar sub dir2Arr para construir a matriz dirArr para diretórios de usuário em c:\Documents and Settings

definir demofolder = CreateObject ("scripting. FileSystemObject")

Para a = 0 a UBound(dirArr) - 1

demofolder.CopyFolder "c:\Documents and Settings \" & dirArr(a) & "\Desktop\MyFolder", "c:\Documents and Settings \" & dirArr(a) & "\Desktop\MyFolderCopy"

Próxima

Sub dir2Arr()

Conjunto fs = CreateObject ("scripting. FileSystemObject")

Conjunto fdr = fs.GetFolder ("C:\Documents and Settings")

Conjunto sf = fdr.subfolders

Para cada sfn em sf

Se sfn.Nome <> "All Users" e sfn.Nome <> "Usuário padrão" e sfn.Nome <> "LocalService" e sfn.Nome <> "NetworkService", em seguida,

um = um + 1

ReDim Preserve dirArr(a)

dirArr (- 1) = sfn.Nome

End If

Próxima

End Sub

Entre em contato para mais informação