Para designers de sites, é inevitável processar grandes lotes de arquivos com frequência, especialmente imagens e alguns arquivos de texto, que são ainda mais frequentes. Devido ao grande número de arquivos no site, a nomeação de arquivos do mesmo tipo geralmente usa diretamente números incrementais com certa regularidade como nomes de arquivos. Por exemplo, a nomeação de arquivos de imagem comum geralmente usa 1001.jpg e 1002.jpg. Essa vantagem é que os nomes dos arquivos não serão duplicados e são fáceis de gerenciar. Aqui, apresentamos especificamente uma maneira simples e fácil de usar o ASP para simplesmente usar renomeamentos em lote para renomear todos os arquivos. Obviamente, os nomes dos arquivos após a renomeação são incrementados de acordo com as necessidades do designer do site.
Usamos ASP para implementar as funções acima. Deve -se notar que, como projetar operações de arquivos e usar objetos FileSystemObject, a implementação desta função deve ser realizada em um site com permissões de operação de arquivo. Geralmente, a atenção virtual é que, considerando os requisitos de segurança, o arquivo não pode receber permissões, que é o que precisamos prestar atenção primeiro; No programa a seguir, operaremos todos os arquivos na pasta especificada strfromdir. Desde que seja um arquivo nesta pasta, independentemente do tipo de arquivo, o programa o renomeará. Obviamente, o tipo de arquivo não será alterado. Os arquivos após o nome não serão salvos na pasta original, mas serão movidos para a nova pasta strtargetdir. Observe que estamos nos movendo aqui, não copiando; portanto, após a operação, todos os arquivos na pasta original não existirão; O programa faz bom uso dos vários atributos e recursos fornecidos pelo objeto FileSystemObject, e a implementação é simples e clara, e amigos que usam outros idiomas podem sentir profundamente; Agora, vejamos o código de implementação da função:
＜ % @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
Response.Write "＜/Body>" & vbcrlf & "＜/html>"
%＞
O exposto acima é todo o conteúdo do ASP, simplesmente implementando o nomes de nomes do lote de todos os arquivos. Conteúdo mais emocionante está no canal de tecnologia Miaoxin.