Windows skripts - kopēt failus pēc patterna

[Ronalds]

Nepieciešams windows skriptā nokopēt dažus failus no direktorijas pēc patterna 

 

piemēram visus kuram 1 un 2 simbols ir jebkurš cipars, 3 un 4 ir "00", tālāk jebkas.

 

tipa šāds patterns [0-9][0-9]00*.* 

 

Kā to labāk izdarīt? Powershell? 

[Vilx-]

??00*.*

 

neder?

[Ronalds]

Neder... Pirmie divi simboli - cipari.

[Xirx]

Tikai windows script? VBS nevar? 

[Ronalds]

der jebkas, ka tik vieglak uztaisit un nevajag papildus maksas softus.

[versatile]

VBScript. Da kaut vai pavisam primitīvs.

Powershell būtu elegantāk un noteikti var, bet to neesmu iemācījies

[eddyboi]

Rekur bus skripts, kas skatas visus failus sSource folderi, atrod to kuriem pirmie 2 simboli ir skaitļi un tad uztaisa folderi no tiem skatiļiem - teiksim "C:\folderis\kur\meklet\failus\00" un iekope tur visus failus kuri sakas ar 00.

on error resume next

Dim sSource,oShell,fso,f,fc,objFile 
Set oShell = CreateObject ("WSCript.shell") 

sSource = "C:\folderis\kur\meklet\failus"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sSource) 		
Set fc = f.Files



For Each objFile In fc
	
If IsNumeric(left(fso.GetBaseName(objFile),2)) Then

	if fso.folderexists(sSource& "\" & left(fso.GetBaseName(objFile),2)) then

	fso.CopyFile objFile,sSource& "\" & left(fso.GetBaseName(objFile),2) & "\",0
	else
	fso.CreateFolder sSource& "\" & left(fso.GetBaseName(objFile),2)
	fso.copyfile objFile,sSource& "\" & left(fso.GetBaseName(objFile),2) & "\",0
	end if
    Else
     
    End If



Next