В нашей интранете есть простой файловый браузер, построенный с использованием ASP / vbscript. Файлы читаются сценарием и добавляются в набор записей ADO (не подключен к базе данных), поэтому мы можем легко отсортировать содержимое:
Set oFolderContents = oFolder.Files
Set rsf = Server.CreateObject("ADODB.Recordset")
rsf.Fields.Append "name", adVarChar, 255
rsf.Fields.Append "size", adInteger
rsf.Fields.Append "date", adDate
rsf.Fields.Append "type", adVarChar, 255
rsf.Open
For Each oFile In oFolderContents
if not left(oFile.Name, 3) = "Dfs" then 'Filter DFS folders
rsf.AddNew
rsf.Fields("name").Value = oFile.Name
rsf.Fields("size").Value = oFile.Size
rsf.Fields("date").Value = oFile.DateCreated
rsf.Fields("type").Value = oFile.Type
end if
Next
В одной конкретной папке мы получаем ошибку:
Microsoft Cursor Engine error '80040e21'
Multiple-step operation generated errors. Check each status value.
Это указывает на линию
rsf.Fields("name").Value = oFile.Name
в коде выше.
Вначале я думал, что это было вызвано длинным именем файла, но я проверил длину всех файлов в каталоге - хотя некоторые из них довольно длинные, все они имеют ограничение в 255 символов, установленное выше (самый большой - 198 символов) .
В данной папке содержится около 2000 PDF-файлов, и у меня нет прав на изменение содержимого, просто прочитайте (это техническая библиотека). Файлы имеют соглашение об именах «ID # - Название бумаги». У некоторых есть специальные символы, такие как ', &, и (или) - могут ли некоторые из них вызывать проблему? Я не помню, чтобы у меня была такая проблема раньше. Я попытался найти в Google специальные символы в ADO, но не смог найти ничего подходящего.
Спасибо: -)