< % @Language = VBScript % >
<%Opção Explícita%>
<%
'O lote do programa a seguir renomeia os nomes dos arquivos na pasta e move todos os arquivos para uma nova pasta;
Response.Write "< html >" & vbcrlf & "< Head >" & vbcrlf
Response.Write "< Título > Nome do arquivo em lote Alterar </title >" & vbcrlf
Response.Write "</Head>" & vbcrlf & "< Body>" & vbcrlf
'Descrição variável
Dim gbolgoprocedure
Dim Strfromdir'source Pasta
Pasta dim strtargetdir'target dim
Objfs dim
Objrootfolder dim
Objfile escuro
Dim strfilenamelen
Dim strPrevFileName
Extensão de arquivo dim strfileExt '
Dim strfilenameCount
Dim strNewFileName
Dim StrrealCount 'Número de arquivos processados
gbolgoprocedure = false
'Se o botão Iniciar for clicado, execute o seguinte processamento
If (request.form ("gobutton")) = "start" então
'Especifique a pasta de origem e a pasta de destino
strfromdir = "D: teste/"
strtargetdir = "d:/test1/"
'Defina o número de arquivos de processamento para 0
strrealCount = 0
Set objfs = server.createObject ("scripting.filesystemobject")
Set objrootfolder = objfs.getFolder (strtargetdir)
'As configurações específicas do nome do arquivo, definidas como 100001 aqui, indicando que o nome do arquivo será de 100001
'Iniciar, o incremento gradualmente, pode ser definido conforme necessário;
strfilenameCount = 100001
Para cada objfile em objrootfolder.files
'Para arquivos específicos, eles não são processados e podem ser definidos conforme necessário;
Se objfile.name = "thumbs.db" então strfilenameCount = strfilenameCount - 1
strfilenameCount = strfilenameCount + 1
Próximo
Set objrootfolder = objfs.getFolder (strfromdir)
Para cada objfile em objrootfolder.files
strfilenamelen = len (objfile.name)
Se mid (objfile.name, (strfilenamelen - 3), 1) = "." então
strfileExt = direita (objfile.name, 4)
Outro
strfileExt = direita (objfile.name, 5)
Final se
strPrevFileName = objfile.name
strNewFileName = strfilenameCount & strfileExt
objfile.move strtargetdir & strnewfilename
Response.Write "Origem File:" & strfromdir & strprevfileName & "> Move e mude para:" & strtargetdir & strnewfileName & "<br>" & vbcrlf
strfilenameCount = strfilenameCount + 1
strrealCount = strrealCount + 1
Próximo
Response.Write "< P >< B > Processamento total:" & (StrrealCount) & "Arquivos </b>" & vbcrlf
Definir ObjrootFolder = nada
Defina objfs = nada
gbolgoprocedure = true
Final se
Se Gbolgoprocedure, então
Response.Write ("< P >< B > LOTO DE LOTO MOVIME
Outro
Response.Write ("< < Center ><br> < form method =" "post" "action =" "filenameConverter.asp" "id = form1 name =" "form1" ""> ") e vbcrlf
Response.write ("< type de entrada =" "submeter" "" value = "" start "" id = "" gobutton "" name = "" gobutton "" ">") e vbcrlf
Response.Write ("</form>") e vbcrlf
Response.Write ("< P >< B > Clique no botão para mover em lote e renomear o arquivo </b ></Center >") & vbcrlf
Final se