日期:2014-05-17 浏览次数:20818 次
DECLARE @folder VARCHAR(200)
SET @folder='e:\tmp'
DECLARE @err INT,@fso INT,@dic INT,@f INT,@fldExists BIT,@fleExists BIT,@fld INT,@fle INT,@fleList INT,@cnt INT,@eof BIT
DECLARE @t TABLE(id INT IDENTITY(1,1),fName VARCHAR(200))
--创建fso
EXEC @err=sp_OACreate 'Scripting.FileSystemObject',@fso OUTPUT
--检测指定目录是否存在
EXEC @err=sp_OAMethod @fso, 'FolderExists',@fldExists OUTPUT,@folder
IF @fldExists=0
PRINT 'floder does not exist!'
ELSE
BEGIN
--将指定目录给@fld对象
EXEC @err=sp_OAMethod @fso,'GetFolder',@fld OUTPUT,@folder
--获取指定目录的文件集合
EXEC @err=sp_OAGetProperty @fld,'files',@fleList OUTPUT
--获取目录下的文件数,准备循环使用
EXEC @err=sp_OAGetProperty @fleList,'Count',@cnt OUTPUT
--输出
SELECT @err 错误编号,@fldExists 目录存在否,@cnt 文件数
--WHILE @eof!=0
--BEGIN
--检测是否没有文件了
END
SET NOCOUNT ON
GO
&n