n(新增)、取名字、18(應該是 google drive)、弄一個自己的 Google Application Client Id 還有密碼、選 1 拿完整授權、root folder id 跟 service_account_file 無腦下一步就好、n (不用進階設定)、y(使用自動設定)、選帳號、確認、n(不是團隊硬碟)、y(確認建立)
Option Explicit
Dim WMIService, Process, Processes, Flag, WS
Set WMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
Set Processes = WMIService.ExecQuery("select * from win32_process")
Flag = true
for each Process in Processes
if strcomp(Process.name, "rclone.exe") = 0 then
Flag = false
exit for
end if
next
Set WMIService = nothing
if Flag then
Set WS = Wscript.CreateObject("Wscript.Shell")
WS.Run "rclone mount 你剛剛取的名字:/ j: --cache-dir F:\Temp --vfs-cache-mode minimal", 0
WS.Run "rclone mount 掛載超過一個硬碟就寫在這裡:/ k: --cache-dir F:\Temp --vfs-cache-mode minimal", 0
' 依照網路快慢 off(速度大於 100M)>minimal>writes>full(會完全暫存雲端硬碟內容到地腦) 預設是 minimal。
end if