日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網營銷解決方案
綜合運用：VB.NET文件系統(tǒng)對象

我們常常和文件系統(tǒng)打交道，VB.NET文件系統(tǒng)對象推出之后，一切變得簡單多了。要應用FSO對象，須要引用一個名為Scripting的類型庫，方法是，執(zhí)行VB6.0的菜單項“工程/引用”，添加引用列表框中的“MicrosoftScriptingRuntime”一項。然后我們在“對象瀏覽器”中就可以看到Scripting類型庫下的眾多對象及其方法、屬性。

臨澤ssl適用于網站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：13518219792（備注：SSL證書合作）期待與您的合作！

1，VB.NET文件系統(tǒng)對象之獲取系統(tǒng)文件夾路徑：

 
 
 
    
  
  
  
  1. \'返回Windows文件夾路徑 
    2. 
  
  
  
  2. FunctionGetWindir() 
    3. 
  
  
  
  3. DimFsoAsNewFileSystemObject 
    4. 
  
  
  
  4. GetWindir=Fso.GetSpecialFolder(WindowsFolder) 
    5. 
  
  
  
  5. SetFso=Nothing
    6. 
  
  
  
  6. EndFunction 
    7. 
  
  
  
  7. \'返回Windows\\System文件夾路徑 
    8. 
  
  
  
  8. FunctionGetWinSysdir() 
    9. 
  
  
  
  9. DimFsoAsNewFileSystemObject 
    10. 
  
  
  
  10. GetWinSysdir=Fso.GetSpecialFolder(SystemFolder) 
    11. 
  
  
  
  11. SetFso=Nothing
    12. 
  
  
  
  12. EndFunction
    13.

2，VB.NET文件系統(tǒng)對象綜合運用：一個文件備份通用過程：

 
 
 
    
  
  
  
  1. \'Filename=文件名，Drive=驅動器，F(xiàn)older=文件夾(一層) 
    2. 
  
  
  
  2. SubBackupFile(FilenameAsString,DriveAsString,FolderAsString) 
    3. 
  
  
  
  3. DimFsoAsNewFileSystemObject\'創(chuàng)建FSO對象實例 
    4. 
  
  
  
  4. DimDest_pathAsString,CounterAsLong 
    5. 
  
  
  
  5. Counter=0
    6. 
  
  
  
  6. DoWhileCounter<6\'如果驅動器沒準備好，繼續(xù)檢測。共檢測6秒 
    7. 
  
  
  
  7. CounterCounter=Counter+1 
    8. 
  
  
  
  8. CallWaitfor(1)\'間隔1秒 
    9. 
  
  
  
  9. IfFso.Drives(Drive).IsReady=TrueThen
    10. 
  
  
  
  10. ExitDo 
    11. 
  
  
  
  11. EndIf 
    12. 
  
  
  
  12. Loop 
    13. 
  
  
  
  13. IfFso.Drives(Drive).IsReady=FalseThen\'6秒后目標盤仍未準備就緒，退出 
    14. 
  
  
  
  14. MsgBox"目標驅動器"&Drive&"沒有準備好！",vbCritical 
    15. 
  
  
  
  15. ExitSub 
    16. 
  
  
  
  16. EndIf 
    17. 
  
  
  
  17. IfFso.GetDrive(Drive).FreeSpace(Filename).SizeThen 
    18. 
  
  
  
  18. MsgBox"目標驅動器空間太小！",vbCritical\'目標驅動器空間不夠，退出 
    19. 
  
  
  
  19. ExitSub 
    20. 
  
  
  
  20. EndIf 
    21. 
  
  
  
  21. IfRight(Drive,1)<>":"Then 
    22. 
  
  
  
  22. DriveDrive=Drive&":" 
    23. 
  
  
  
  23. EndIf 
    24. 
  
  
  
  24. IfLeft(Folder,1)<>"\\"Then 
    25. 
  
  
  
  25. Folder="\\"&Folder 
    26. 
  
  
  
  26. EndIf 
    27. 
  
  
  
  27. IfRight(Folder,1)<>"\\"Then 
    28. 
  
  
  
  28. FolderFolder=Folder&"\\" 
    29. 
  
  
  
  29. EndIf 
    30. 
  
  
  
  30. Dest_path=Drive&Folder 
    31. 
  
  
  
  31. IfNotFso.FolderExists(Dest_path)Then\'如果目標文件夾不存在，創(chuàng)建之 
    32. 
  
  
  
  32. Fso.CreateFolderDest_path 
    33. 
  
  
  
  33. EndIf 
    34. 
  
  
  
  34. Fso.CopyFileFilename,Dest_path&Fso.GetFileName(Filename),True 
    35. 
  
  
  
  35. \'拷貝，直接覆蓋同名文件 
    36. 
  
  
  
  36. MsgBox"文件備份完畢。",vbOKOnly 
    37. 
  
  
  
  37. SetFso=Nothing
    38. 
  
  
  
  38. EndSub 
    39. 
  
  
  
  39. PrivateSubWaitfor(DelayAsSingle)\'延時過程，Delay單位約為1秒 
    40. 
  
  
  
  40. DimStartTimeAsSingle 
    41. 
  
  
  
  41. StartTime=Timer
    42. 
  
  
  
  42. DoUntil(Timer-StartTime)>Delay 
    43. 
  
  
  
  43. Loop 
    44. 
  
  
  
  44. EndSub 
    45.

分享標題：綜合運用：VB.NET文件系統(tǒng)對象
當前URL：http://www.5511xx.com/article/codesgp.html