联系

点击这里立即发消息给我

加腾讯QQ:211812590
E_mail: 211812590@qq.com

条码二维码软件
实用工具软件

站点日历
73 2018 - 7 48
1234567
891011121314
15161718192021
22232425262728
293031




日志搜索

 标题   内容

联系

点击这里立即发消息给我

E_mail: 211812590@qq.com


fso获取文件夹下文件个数和显示文件名(无后缀) ASP生成静态代码,可用模板技术,非常简单
雨天 fso循环获取文件夹下文件名并写入数据库   [ 日期:2011-04-06 ]   [ 来自:网络 ]

'取得路径
WebPath = "E:/WEB/SD"

Recursion("E:\WEB\SD")
Function Recursion(Path)
 Set Fso=Server.CreateObject("Scripting.FilesystemObject")
  'On Error Resume Next
  Set Folder = Fso.GetFolder(Path)
  Set Folders = Folder.SubFolders
  For Each Folder In Folders'开始文件夹循环
    Nowpath = Path & "\" & Folder.Name 
    Set Files = Folder.Files
    For Each File In Files'开始文件循环
      TempStr = Replace(Replace(File.ParentFolder,"\","/"),WebPath,"") & "/" & File.Name 
'开始入库
    SqlStr = "Insert Into Resource(R_Name,R_FileExt,R_Url,R_Size)Values('" & Fso.GetBaseName(File.Name) & "','" & Lcase(Fso.GetExtensionName(File.Name)) & "','" & TempStr & "','" & (Fix((File.Size/1024)*100))/100 & "')"
    Conn.ExeCute(SqlStr)
    Response.Write("<BR>" & SqlStr)
    Next
    Recursion(Nowpath)
Next
Set Files = Nothing
Set Folder = Nothing
Set Folders = Nothing
Set Fso = Nothing
End Function
 



在本网站提供显示的任何文字内容及图片仅供学习研究参考之用,若有觉的侵犯了您的合法权益,请联系删除!
Copyright@zg126.net all rights reserved 2010-2016