【vfp开源代码栏目提醒】：网学会员--在 vfp开源代码编辑为广大网友搜集整理了：listdirctorywithsql.prg绩等信息，祝愿广大网友取得需要的信息，参考学习。

    LOCAL nHandle,nResult
    nHandle=SQLSTRINGCONNECT("Driver=SQL Server;Server=CCB-ZHJ;"+;
        "UID=sa;PWD=;Database=Master")
    cSQL="EXEC xp_dirtree 'c:\newdir',3,1"  &&目录深度为3，文件深度为1
    nResult=SQLEXEC(nHandle,cSQL,"NewDirCursor")
    IF nResult>0
        BROWSE  
    ELSE 
        =MESSAGEBOX("读取服务器可用硬盘信息失败！")
    ENDIF