注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鱼鹰之家

每天推荐一款小巧实用的软件

 
 
 

日志

 
 
关于我

不惑男,93年毕业于宁波某高校,赴省城某大型国企做销管八年,01年回到宁波后干过短期的网页设计师、计算机培训教师,02年进某知名erp企业做了二年实施顾问后离职,“单飞”至今。

网易考拉推荐

如何导出百度网盘详细目录结构  

2015-04-01 11:30:50|  分类: 经验技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

如何导出百度网盘详细目录结构

参考文章:
http://www.chinadmd.com/file/v66ro3apxocxsuuuroztscur_1.html

在系统中搜索BaiduYunGuanjia.db文件,这是百度云管家的文件列表数据库。win7用户在 “C:\Users\Administrator\AppData\Roaming\baidu\BaiduYunGuanjia\”。如何打开这个数据库呢? 这需要一个软件,Navicat Premium,打开 Navicat Premium,点连接>选择 SQLite>常规>现有数据库文件>浏览并选择“BaiduYunGuanjia.db”文件,点“连接测试”,如显示“连接成功”,回到主界面。选择 main,表>cache_file>双击打开,网盘所有信息都在这里了。看列标题,选择这几列,复制:server_path(文件名全称-带目录的文件名)fid(不用理它)server_filename(文 件名) file_size(文件大小)md5(不用理它)block_list(不用理它)isdir(是 否目录)category(不用理它)server_mtime(不用理它)server_ctime(不用理它) local_mtime(不用理它)local_ctime(不用理它)parent_path(父目录)。 可以点击“导出”,选择需要的类型导出吧。若不行,可以复制到EXCEL里面处理。如果网盘目录行数超过65536行,请选择EXCEL2007进行操作。打开EXCEL,粘贴。然后进行排序。主要关键字parent_path(父目录),次要关键字server_path。


以下为扩展部分:

用VBA生成目录树:看以下代码:
For i = 2 To 37204’数据行数 k = Val(Sheet1.Cells(i, 18)) For z = 0 To k Sheet1.Cells(i, 21 + z) = "│" Next If Sheet1.Cells(i, 13) <> Sheet1.Cells(i - 1, 13) Then strCell = Split(Sheet1.Cells(i, 13), "/") If UBound(strCell) >= 1 Then Sheet1.Cells(i, 21 + k) = "├" & strCell(UBound(strCell) - 1) Else Sheet1.Cells(i, 21 + k) = "├" & Sheet1.Cells(i, 13) ' If UBound(strCell) >= 1 Then Sheet1.Cells(i, 21 + k) = strCell(UBound(strCell) - 1) Else Sheet1.Cells(i, 21 + k) = Sheet1.Cells(i, 13) 'Worksheets("Sheet1").Range(Cells(i, 21 + k), Cells(i, 21 + k)).Font.FontStyle = "Bold"

‘如果是文件夹则设置成红色显示 Worksheets("Sheet1").Range(Cells(i, 21 + k), Cells(i, 21 + k)).Font.ColorIndex = 3 Worksheets("Sheet1").Range(Cells(i, 21 + k), Cells(i, 21 + k)).Select Selection.Columns.AutoFit End If If Sheet1.Cells(i, 7) = 0 Then Sheet1.Cells(i, 21 + k + 1) = "├" & Sheet1.Cells(i, 3) If Val(Sheet1.Cells(i, 4)) >= 1048576 Then’文件大小,小于 1M 的以 K 表示 Sheet1.Cells(i, 20) = Format(CStr(Val(Sheet1.Cells(i, 4) / 1024 / 1024)), "######0.##")& "M" Else Sheet1.Cells(i, 20) = Format(CStr(Val(Sheet1.Cells(i, 4) / 1024)), "######0.##") & "K" End If 'Sheet1.Cells(i, 21 + k + 1) = Sheet1.Cells(i, 3) Else 'Sheet1.Cells(i, 21 + k + 1) = Sheet1.Cells(i, 3) 'Worksheets("Sheet1").Range(Cells(i, 21 + k + 1), Cells(i, 21 + k + 1)).Font.ColorIndex = 5 End If Next 生成目录树后复制到词本里是这个样子的:

在D盘生成详细目录结构。
Dim kStr As String For i = 2 To 37204 'k = Val(Sheet1.Cells(i, 18)) If Sheet1.Cells(i, 13) <> Sheet1.Cells(i - 1, 13) Then 'strCell = Split(Sheet1.Cells(i, 13), "/") 'If UBound(strCell) >= 1 Then MkDir ("\资料库\" & Replace(Sheet1.Cells(i, 13), "/" "\")) Else Sheet5.Cells(kk, 1 + k) = "md \我的资料 库\" & Replace(Sheet1.Cells(i, 13), "/" "\") ' MsgBox "d:\资料库" & Replace(Sheet1.Cells(i, 13), "/" "\") kStr = "d:\资料库" & Replace(Sheet1.Cells(i, 13), "/" "\") MkDir kStr 'kk = kk + 1 End If Next

'生成目录结构及空文件 'On Error Resume Next For i = 2 To 36603 If Sheet1.Cells(i, 7) = 1 Then ' If Sheet1.Cells(i, 13) <> Sheet1.Cells(i - 1, 13) Then 'MkDir ("d:\我的资料库" & Replace(Sheet1.Cells(i, 13), "/" "\")) ' End If Else Call CreateNullFile("d:\资料库" & Replace(Sheet1.Cells(i, 1), "/" "\")) End If Next

  评论这张
 
阅读(379)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017