Dim oFSO, oUploadFolder, oUploadFiles, oUploadFile, sFileName
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oUploadFolder = oFSO.GetFolder(Server.MapPath(folderpath))
'folderpath是文件文件存放的地址
Set oUploadFiles = oUploadFolder.Files
nFileNum = oUploadFiles.Count
Dim i
i = 0
For Each oUploadFile In oUploadFiles
filename11=replace(oUploadFile.Name,".txt","")
if right(filename11,1)="省" then
'加入到你的数据库中省的对应字段
else
'加入到你的数据库中市的对应字段
end if
Next
Set oUploadFolder = Nothing
Set oUploadFiles = Nothing