0

上下文:Windows 7、XLW 5.x、Microsoft Excel 2007、Visual Studio 2010、C++

鉴于以下代码...

#import "c:\windows\system32\scrrun.dll" raw_interfaces_only, \
raw_native_types, \
named_guids, \
rename("DeleteFile", "_DeleteFile"), \
rename("MoveFile","_MoveFile"), \
rename("CopyFile", "_CopyFile"), \
rename("GetFreeSpace", "_GetFreeSpace")
using namespace Scripting;

我现在如何实例化 FileSystemObject 并调用它的方法?

4

1 回答 1

1

这对我有用

std::wstring fileExists(std::wstring name)
{
    VARIANT_BOOL b = 0;
    ::CoInitialize(NULL);
    {
        CComPtr<IFileSystem> spFSO;
        HRESULT hr = spFSO.CoCreateInstance(L"Scripting.FileSystemObject");
        if (SUCCEEDED(hr) && spFSO)
        {
            BSTR theName = SysAllocStringLen( name.data(), name.size());
            hr = spFSO->FileExists(theName, &b);
        }
    }
    ::CoUninitialize();
    return (b == -1) ? L"Exists" : L"Doesn't exist";
}

这至少让我连接到功能。仍然有适合这种情况的方法,但这超出了发布的范围。

于 2013-01-06T08:19:53.853 回答