教你如何導(dǎo)出百度網(wǎng)盤詳細(xì)目錄結(jié)構(gòu)

教你如何導(dǎo)出百度網(wǎng)盤詳細(xì)目錄結(jié)構(gòu)－超詳細(xì)的〔原創(chuàng)〕百度網(wǎng)盤收藏的資源太多，可能還有幾個賬號，有時連自己都不知道自己有什么資源了，查找資源確實是件很麻煩的事，如果能把百度網(wǎng)盤詳細(xì)目錄結(jié)構(gòu)導(dǎo)出到本地，像本地文件夾那樣瀏覽搜索，或者導(dǎo)出到TXT文本文檔，那該多方便呢？如果想看一下效果，可以到我的網(wǎng)盤D：言歸正轉(zhuǎn)下面就跟我來一起做！首先，你要有百度云客戶端――這個你肯定有吧！翻開其程序所在目錄。右鍵點擊百度云客戶端快捷方式---選擇“翻開文件位置〔XP不適用〕”，或點屬性，查看快捷方式目標(biāo)，一般在“C:\Users\Administrator\AppData\Roaming\baidu\BaiduYunGuanjia\”位置，復(fù)制到資源管理器地址欄后回車。可以看到有個user目錄，雙擊翻開。里面有幾個文件夾，分別存放各用戶文件資料?？吹接袀€“B”文件，這個就是存放你網(wǎng)盤的詳細(xì)信息的數(shù)據(jù)庫了。如何翻開這個數(shù)據(jù)庫呢？這需要一個軟件，NavicatPremium。這里就不提供下載地址了，自己百度去吧。翻開NavicatPremium，點連接>選擇SQLite>常規(guī)>現(xiàn)有數(shù)據(jù)庫文件＞瀏覽并選擇你的百度云客戶端目錄中“”文件，點“連接測試”，如顯示“連接成功”，回到主界面。

選擇main，表>cache_file>雙擊翻開。

好了，你網(wǎng)盤所有信息都在這里了?？戳袠?biāo)題，選擇這幾列，復(fù)制：server_path〔文件名全稱－帶目錄的文件名〕fid〔不用理它〕server_filename〔文件名〕 file_size〔文件大小〕md5〔不用理它〕block_list〔不用理它〕isdir〔是否目錄〕category〔不用理它〕server_mtime〔不用理它〕server_ctime〔不用理它〕local_mtime〔不用理它〕local_ctime〔不用理它〕parent_path〔父目錄〕?？梢渣c擊“導(dǎo)出”，選擇你需要的類型導(dǎo)出吧。但是可能會不正常工作，我的是這樣的，到最后沒反響。我復(fù)制到EXCEL里面處理。如果你的網(wǎng)盤目錄行數(shù)超過65536行，請選擇EXCEL2007進行操作。翻開EXCEL，粘貼。然后進行排序。主要關(guān)鍵字parent_path〔父目錄〕，次要關(guān)鍵字server_path。如果你對VBA有所了解，那就放手干吧，想生成目錄樹？看以下代碼：Fori=2To37204’數(shù)據(jù)行數(shù)k=Val(Sheet1.Cells(i,18))Forz=0TokSheet1.Cells(i,21+z)="│"NextIfSheet1.Cells(i,13)<>Sheet1.Cells(i-1,13)ThenstrCell=Split(Sheet1.Cells(i,13),"/")IfUBound(strCell)>=1ThenSheet1.Cells(i,21+k)="├"&strCell(UBound(strCell)-1)ElseSheet1.Cells(i,21+k)="├"&Sheet1.Cells(i,13)'IfUBound(strCell)>=1ThenSheet1.Cells(i,21+k)=strCell(UBound(strCell)-1)ElseSheet1.Cells(i,21+k)=Sheet1.Cells(i,13)'Worksheets("Sheet1").Range(Cells(i,21+k),Cells(i,21+k)).Font.FontStyle="Bold"‘如果是文件夾那么設(shè)置成紅色顯示W(wǎng)orksheets("Sheet1").Range(Cells(i,21+k),Cells(i,21+k)).Font.ColorIndex=3Worksheets("Sheet1").Range(Cells(i,21+k),Cells(i,21+k)).SelectEndIf

IfSheet1.Cells(i,7)=0ThenSheet1.Cells(i,21+k+1)="├"&Sheet1.Cells(i,3)IfVal(Sheet1.Cells(i,4))>=1048576Then’文件大小，小于1M的以K表示Sheet1.Cells(i,20)=Format(CStr(Val(Sheet1.Cells(i,4)/1024/1024)),"######0.##")&"M"ElseSheet1.Cells(i,20)=Format(CStr(Val(Sheet1.Cells(i,4)/1024)),"######0.##")&"K"

EndIf'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

EndIfNext生成目錄樹后復(fù)制到詞本里是這個樣子的：我的編程水平有點二五眼，在此拋磚引玉，希望有大俠實現(xiàn)更多自己的功能吧。

在D盤生成詳細(xì)目錄結(jié)構(gòu)。DimkStrAsStringFori=2To37204'k=Val(Sheet1.Cells(i,18))IfSheet1.Cells(i,13)<>Sheet1.Cells(i-1,13)Then'strCell=Split(Sheet1.Cells(i,13),"/")'IfUBound(strCell)>=1ThenMkDir("\我的資料庫\"&Replace(Sheet1.Cells(i,13),"/","\"))ElseSheet5.Cells(kk,1+k)="md\我的資料庫\"&Replace(Sheet1.Cells(i,13),"/","\")'MsgBox"d:\我的資料庫"&Replace(Sheet1.Cells(i,13),"/","\")kStr="d:\我的資料庫"&Replace(Sheet1.Cells(i,13),"/","\")MkDirkStr'kk=kk+1EndIfNext

'生成目錄結(jié)構(gòu)及空文件'OnErrorResumeNextFori=2To36603IfSheet1.Cells(i,7)=1Then'IfSheet1.Cells(i,13)<>Sheet1.Cells(i-1,13)Then'MkDir("d:\我的資料庫"&Replace(Sheet1.Cells(i,13),"/",