Nous avons un navigateur de fichiers simple sur notre intranet, construit en utilisant ASP/vbscript. Les fichiers sont lus par le script et ajouté à un jeu d'enregistrements ADO (non connecté à une base de données), afin que nous puissions trier le contenu facilement:Y a-t-il des caractères restreints dans les varchars 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
Dans un dossier particulier que nous obtenons une erreur:
Microsoft Cursor Engine error '80040e21'
Multiple-step operation generated errors. Check each status value.
Ce point à la ligne
rsf.Fields("name").Value = oFile.Name
dans le code ci-dessus. Ma première pensée a été provoquée par un nom de fichier long, mais j'ai vérifié la longueur de tous les fichiers du répertoire - bien que certains soient assez longs, tous sont sous la limite de 255 caractères (le plus grand est de 198 caractères).).
Le dossier en question a près de 2000 fichiers PDF, et je n'ai pas les permissions pour modifier le contenu, il suffit de lire (c'est une bibliothèque technique). Les fichiers ont une convention de nommage de "ID # - Paper Title". Certains ont des caractères spéciaux tels que ', &, et (ou) - certains d'entre eux pourraient-ils causer le problème? Je ne me souviens pas avoir eu un tel problème auparavant. J'ai essayé de chercher des caractères spéciaux dans Google ADO, mais je n'ai rien trouvé de pertinent.
Merci :-)
Je l'ai fait, et il a erré la première fois, mais je l'ai essayé à nouveau et il semble fonctionner maintenant. Merci! – Chris