문제

인트라넷에 간단한 파일 브라우저가 있으며 ASP/VBScript를 사용하여 구축되었습니다. 파일은 스크립트에 의해 읽히고 Ado RecordSet (데이터베이스에 연결되지 않음)에 추가되므로 내용을 쉽게 정렬 할 수 있습니다.

        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 문자 제한 (가장 큰 문자 길이) 아래에 있습니다.

문제의 폴더에는 거의 2000 개의 PDF가 있으며, 내용을 변경하고 읽기 만 읽는 권한이 없습니다 (기술 라이브러리입니다). 파일에는 "ID# - 종이 제목"의 이름 지정 규칙이 있습니다. 일부는 ', & 및 (또는)와 같은 특수 문자를 가지고 있습니다. 이들 중 일부는 문제를 일으킬 수 있습니까? 나는 전에 그런 문제가 있다는 것을 기억하지 못한다. Ado에서 특수 캐릭터를 위해 Google을 검색하려고 시도했지만 관련성이있는 것으로 보이는 것은 찾을 수 없었습니다.

감사 :-)

도움이 되었습니까?

해결책

이름 열에 Advarwchar를 사용해 보셨습니까?

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top