E
emughost
Unregistered / Unconfirmed
GUEST, unregistred user!
只是想试试FSO在Delphi上的使用。
var
FSO,Fder : OleVariant;
begin
FSO := CreateOleObject('Scripting.FileSystemObject');
Fder := FSO.GetFolder('E:/Test');
ListBox.Item.add(Fder.SubFolders.Count); //执行正确；
ListBox.Item.add(Fder.SubFolders.Item.name); //i为任意正数，文件夹内有子文件夹。 提示参数不正确；
ListBox.Item.add(Fder.SubFolders.Item(i).name); //i为任意正数，文件夹内有子文件夹。 提示方法不存在；
end;
尝试用IUnknown(Fder.SubFolders) as IEnumVariant //提示不支持该接口;
希望知道的朋友能帮助一下。
var
FSO,Fder : OleVariant;
begin
FSO := CreateOleObject('Scripting.FileSystemObject');
Fder := FSO.GetFolder('E:/Test');
ListBox.Item.add(Fder.SubFolders.Count); //执行正确；
ListBox.Item.add(Fder.SubFolders.Item.name); //i为任意正数，文件夹内有子文件夹。 提示参数不正确；
ListBox.Item.add(Fder.SubFolders.Item(i).name); //i为任意正数，文件夹内有子文件夹。 提示方法不存在；
end;
尝试用IUnknown(Fder.SubFolders) as IEnumVariant //提示不支持该接口;
希望知道的朋友能帮助一下。
