FileSystemObject.GetFile не способен обрабатывать файлы с одинарной кавычкой или апострофом в имени файла? - PullRequest
1 голос
/ 15 января 2012

FileSystemObject.GetFile () получает ошибку «файл не найден», если вы вызываете его по имени файла с одиночной кавычкой / апострофом, то есть:

FileSystemObject.GetFile("D:\somepath\some file with an ' apostrophe in it.txt")

Вот что я пытаюсь:

Public Sub VBA_GetFileInfo(FileName As String, ByRef outDateCreated As Date, ByRef outDateAccessed As Date, ByRef outDateModified As Date, ByRef outFileSize As Long)

Dim tmpFile As String
'SOME THINGS I'VE TRIED TO OVERCOME THE PROBLEM, WITH NO SUCCESS:
'tmpFile = """" & FileName & """"
'tmpFile = FileName
'tmpFile = Replace(tmpFile, "\", "\\")
'tmpFile = Replace(tmpFile, "'", "\'")


Dim fso As FileSystemObject
Dim f As file
Dim s As String
Set fso = New FileSystemObject
----> BLOWS UP HERE with "file not found" error:
Set f = fso.GetFile(tmpFile)

1 Ответ

0 голосов
/ 15 января 2012

Комментарий brettdj:

Как это должно быть хорошо, если вы уверены, что это апостроф - это может быть "а не"

... получаетсячтобы быть правильным ответом, это должна была быть апостроф, а не одиночные кавычки, вызывающие ошибку.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...