每月存档
12 月 2009
EVERY WOMAN IN THE WORLD
Air Supply
(Dominic Buggatti/Frank Musker)
Every night seems dinner and wine
Saturday days
I was never in love, never had the time
In my hustle and hurried world
Laughing my self to sleep, waking up lonely
I needed someone to hold me, oh
It’s such a crazy home town
It can drag you down
Till you run out of dreams
So you party all night to the music and lights
But you don’t know what happiness means
I was dancing in the dark with strangers
No love around me
When suddenly you found me, oh
Girl, you’re every woman in the world to me
You’re my fantasy, you’re my reality
Girl, you’re every woman in the world to me
You’re everything I need, you’re everything to me
功能:：假设有个文件夹的所有文件名称前面有个AA_开头，这个小脚本的作用就是删除这个AA_。只是简单的小脚本，如果还有多个”_”字符的时候，重复使用有可能会全部都删除了。
使用：dir填写实际文件所在目录；target填写要分割的字符，保存为.VBS文件，双击运行。做好备份，因为是直接修改原始文件！
dir=("C:\Users\海军\Desktop\104CANON")
target=("_")
Set fso = CreateObject("Scripting.FileSystemObject")
set rfd=fso.getfolder(dir)
set fs=rfd.files
for each f in fs
If InStr(f.name,target) Then
length=Len(f.name)
star=InStr(f.name,target)
newname=Right(f.name,length-star)
f.name=newname
End If
Next