百度网盘文件如何生成目录树列表之根据云数据库结构创建

  • A+
所属分类:未分类

百度网盘大家都在用,有时候希望把自己的文件目录结构给导出来,能形成一个文件树的形式,无奈网上找了好多资料都无果,大多数说的是在浏览器里控制台下,那个方法已经不适用,而且只能导出一级目录,求人不如求己,无奈之下决定自己动手丰衣足食,下面小编手把手教你怎么把百度云网盘里的文件目录机构给导出来。

首先,你要有百度云管家客户端(注意是PC版的哦),打开其程序所在目录。

右键点击百度云客户端快捷方式---选择“打开文件位置(XP不适用)”,或点属性,查看快捷方式目标,一般在“C:\Users\Administrator\AppData\Roaming\baidu\BaiduYunGuanjia\”位置,打开后可以看到有个user目录,双击打开,如下图所示。

里面有几个文件夹,分别存放各用户文件资料。

打开那个一长串的文件夹,可以看到里面有个“BaiduYunCacheFileV0.db”文件,每个人可能文件名不一样,但是后缀肯定是.db文件,然后是大小最大的那个文件,这个就是存放你网盘的详细信息的数据库了,如下图所示。

如何打开这个数据库呢?

这需要一个软件,Navicat Premium。这里就不提供下载地址了,自己百度去吧,百度的时候在关键字后面加一个绿色免安装,下载的双击就可以用,不用安装了。

打开Navicat Premium,点连接>选择SQLite>常规>现有数据库文件>浏览并选择你的百度云客户端目录中“BaiduYunCacheFileV0.db”文件,点“连接测试”,如显示“连接成功”,点击确定回到主界面,如下图所示。

双击刚才建立的那个百度云管家数据库,出现main,再双击main,点开表,双击cache_file表,如下图所示:

这里就是你的百度网盘上的所有目录结构信息,其中parent_path是路径,server_filename是文件名。接下来就是导出这些信息到文件里,导出的时候可以选择全部导出也可以选择导出自己需要的部分,怎么导出自己需要的部分呢,比如我只需要“教程”文件夹下的内容,看下面的截图:

这样一来出现的都是自己需要的数据了,接下来点击导出按钮,你可以选择全部导出,也可以选择导出部分。

打开导出的文件:

接下来就是怎么把这些信息生成文件树的形式了,下面介绍两种方法:

(方法1)利用PHP程序把xls文件读取生成目录文件夹,然后再利用windows命令生成目录结构。

PHP代码如下:

  1. <?php
  2. header("Content-type: text/html; charset=utf-8");
  3. require_once'phpexcel.php';
  4. require_once'PHPExcel\IOFactory.php';
  5. require_once'PHPExcel\Reader\Excel2007.php';
  6. $uploadfile='data.xlsx';//这是刚才生成的xls文件,我改了下名字,你改不改无所谓,对应上就行
  7. $uploadfile='android_path.xls';
  8. $objReader= \PHPExcel_IOFactory::createReader('Excel5');/*Excel5 for 2003 excel2007 for 2007*/
  9. $objPHPExcel$objReader->load($uploadfile); //Excel 路径
  10. $sheet$objPHPExcel->getSheet(0);
  11. $highestRow$sheet->getHighestRow(); // 取得总行数
  12. $highestColumn$sheet->getHighestColumn(); // 取得总列数
  13. $objWorksheet$objPHPExcel->getActiveSheet();
  14. $highestRow$objWorksheet->getHighestRow(); // 取得总行数
  15. $highestColumn$objWorksheet->getHighestColumn();
  16. $highestColumnIndex= \PHPExcel_Cell::columnIndexFromString($highestColumn);//总列数
  17. $dataarray();
  18. for($row= 2;$row<= $highestRow;$row++) {
  19. $strs=array();
  20. //注意highestColumnIndex的列数索引从0开始
  21. for($col= 0;$col$highestColumnIndex;$col++) {
  22. if($col== 0){
  23. $strs['parent_path'] =$objWorksheet->getCellByColumnAndRow($col$row)->getValue();
  24. }else{
  25. $strs['filename'] =$objWorksheet->getCellByColumnAndRow($col$row)->getValue();
  26. }
  27. }
  28. $data[$row] = $strs;
  29. }
  30. foreach($dataas$k=> $v){
  31. $parent_path= iconv("utf-8","gbk",trim(trim($v['parent_path'],"/")));
  32. $filename= iconv("utf-8","gbk",trim(trim($v['filename'],"/")));
  33. if(!is_dir($parent_path)){
  34. mkdir($parent_path,0777,true);
  35. }
  36. $handlefopen("$parent_path/$filename""w");
  37. fwrite($handle"明礼馨德");
  38. fclose($handle);
  39. }
  40. ?>

运行完这个程序后,找到已经建好的文件夹,打开命令行,如下图所示:

然后再命令窗口输入tree /f > mulu.txt ,回车后你会发现多了个mulu.txt文件,打开看看:

看到没,文件目录树已经生成啦,下面来看第二种方法。

(方法2)利用Excel表格的vba宏命令来实现(默认下没有这个宏,需要自己下载安装)

如果你对VBA有所了解,那就选择这个方法吧,如果不了解的话建议还是选择上一个,下面看代码:

  1. For i = 2 To 37204’数据行数
  2. k = Val(Sheet1.Cells(i, 18))
  3. For z = 0 To k
  4. Sheet1.Cells(i, 21 + z) = "│"
  5. Next
  6. If Sheet1.Cells(i, 13) &lt;&gt; Sheet1.Cells(i - 1, 13) Then
  7. strCell = Split(Sheet1.Cells(i, 13), "/")
  8. If UBound(strCell) &gt;= 1 Then Sheet1.Cells(i, 21 + k) = "├" &amp; strCell(UBound(strCell) - 1) Else Sheet1.Cells(i, 21 + k) = "├" &amp; Sheet1.Cells(i, 13)
  9. ' If UBound(strCell) &gt;= 1 Then Sheet1.Cells(i, 21 + k) = strCell(UBound(strCell) - 1) Else Sheet1.Cells(i, 21 + k) = Sheet1.Cells(i, 13)
  10. 'Worksheets("Sheet1").Range(Cells(i, 21 + k), Cells(i, 21 + k)).Font.FontStyle = "Bold"
  11. ‘如果是文件夹则设置成红色显示
  12. Worksheets("Sheet1").Range(Cells(i, 21 + k), Cells(i, 21 + k)).Font.ColorIndex = 3
  13. Worksheets("Sheet1").Range(Cells(i, 21 + k), Cells(i, 21 + k)).Select
  14. Selection.Columns.AutoFit
  15. End If
  16. If Sheet1.Cells(i, 7) = 0 Then
  17. Sheet1.Cells(i, 21 + k + 1) = "├" &amp; Sheet1.Cells(i, 3)
  18. If Val(Sheet1.Cells(i, 4)) &gt;= 1048576 Then’文件大小,小于1M的以K表示
  19. Sheet1.Cells(i, 20) = Format(CStr(Val(Sheet1.Cells(i, 4) / 1024 / 1024)), "######0.##")&amp; "M"
  20. Else
  21. Sheet1.Cells(i, 20) = Format(CStr(Val(Sheet1.Cells(i, 4) / 1024)), "######0.##") &amp; "K"
  22. End If
  23. 'Sheet1.Cells(i, 21 + k + 1) = Sheet1.Cells(i, 3)
  24. Else
  25. 'Sheet1.Cells(i, 21 + k + 1) = Sheet1.Cells(i, 3)
  26. 'Worksheets("Sheet1").Range(Cells(i, 21 + k + 1), Cells(i, 21 + k + 1)).Font.ColorIndex = 5
  27. End If
  28. Next
weinxin
我的微信公众号
爱真理,得永生!          爱在灵灵久博客,网罗天下,福利大家!

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: