【vfp开源代码栏目提醒】：网学会员vfp开源代码为您提供listdirctorywithdmo.prg参考，解决您在listdirctorywithdmo.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"  &&目录深度为2，文件深度为1
    nResult=SQLEXEC(nHandle,cSQL,"NewDirCursor")
    IF nResult>0
        BROWSE  
    ELSE 
        =MESSAGEBOX("读取服务器可用硬盘信息失败！")
    ENDIF