背景
在工作中，總是會(huì)產(chǎn)生一些暫時(shí)不想刪除的文件航攒。QQ等聊天工具也會(huì)不斷的接受一些文件，大部分情況都會(huì)在1-2個(gè)月后變得不那么重要趴梢，而需要?jiǎng)h除調(diào)漠畜。
那么，我的做法是坞靶，創(chuàng)建一個(gè)臨時(shí)文件夾按年憔狞，按月在里面創(chuàng)建子文件夾，然后把這類文件放進(jìn)去彰阴，不定期進(jìn)去清理一下瘾敢。
為了方便，把這個(gè)臨時(shí)文件夾創(chuàng)建一個(gè)快捷方式放在桌面上尿这。
工具說明
- 這個(gè)工具按年/月在指定的路徑（TARGET_PATH）下簇抵，創(chuàng)建一個(gè)文件夾，用以存放各種"臨時(shí)文件"射众。
- 自動(dòng)創(chuàng)建當(dāng)月的文件夾的快捷方式到桌面
其他
需要在"任務(wù)計(jì)劃"中設(shè)置一個(gè)周期性定時(shí)任務(wù)碟摆，每個(gè)月第一個(gè)工作日在開機(jī)以后自動(dòng)執(zhí)行一下這個(gè)腳本
'===================================================
' # 背景
'
' 在工作中，總是會(huì)產(chǎn)生一些暫時(shí)不想刪除的文件叨橱。QQ等聊天工具也會(huì)不斷的接受一些文件典蜕，大部分情況都會(huì)在1-2個(gè)月后變得不那么重要，而需要?jiǎng)h除調(diào)罗洗。
'
' 那么愉舔，我的做法是，創(chuàng)建一個(gè)臨時(shí)文件夾按年栖博，按月在里面創(chuàng)建子文件夾屑宠，然后把這類文件放進(jìn)去，不定期進(jìn)去清理一下仇让。
'
' 為了方便典奉，把這個(gè)臨時(shí)文件夾創(chuàng)建一個(gè)快捷方式放在桌面上躺翻。
'
' # 工具說明
'
' + 這個(gè)工具按年/月在指定的路徑（TARGET_PATH）下，創(chuàng)建一個(gè)文件夾卫玖，用以存放各種"臨時(shí)文件"公你。
' + 自動(dòng)創(chuàng)建當(dāng)月的文件夾的快捷方式到桌面
'
' # 其他
'
' 需要在"任務(wù)計(jì)劃"中設(shè)置一個(gè)周期性定時(shí)任務(wù)，每個(gè)月第一個(gè)工作日在開機(jī)以后自動(dòng)執(zhí)行一下這個(gè)腳本
'
'===================================================
const TARGET_PATH = "D:\temp"
const LINK_FILE_NAME = "TEMP"
const SEPARATOR = "\"
Dim desktopPath
desktopPath = getDesktopPath()
Dim linkFile
linkFile = desktopPath & LINK_FILE_NAME & ".lnk"
Dim targetFolder
targetFolder = TARGET_PATH & "\" & Year(Now()) & "\" & Right("0" & Month(Now()), 2)
If Not IsExitFolder(targetFolder) Then
CreateFolder targetFolder
End If
CreateLink targetFolder, linkFile
'===================================================
Function getDesktopPath()
Set shell = CreateObject("WScript.Shell")
getDesktopPath = shell.SpecialFolders(4)&"\"
Set shell = Nothing
End Function
Function IsExitFolder(folder)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderExists(folder) Then
IsExitFolder = True
Else
IsExitFolder = False
End If
Set fso = Nothing
End Function
Function CreateFolder(folder)
Set fso = CreateObject("Scripting.FileSystemObject")
Dim pathArr
pathArr = split(folder, SEPARATOR)
Dim tempPath
tempPath = pathArr(0)
For i = 1 to UBound(pathArr)
tempPath = tempPath & SEPARATOR & pathArr(i)
If not IsExitFolder(tempPath) then
fso.CreateFolder(tempPath)
End If
Next
Set fso = Nothing
End Function
Function CreateLink(targetFolder, linkFile)
Set shell = WScript.CreateObject("WScript.Shell")
Set lnk = shell.CreateShortcut(linkFile)
lnk.TargetPath = targetFolder
lnk.IconLocation = "%SystemRoot%\system32\shell32.dll , 4"
lnk.save
Set lnk = Nothing
Set shell = Nothing
End Function
