vbs創建子文件夾

⑴ 怎麼用vbs創建文件夾

Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.CreateFolder "C:\系統文件，請勿刪回除答"
Set objFso = Nothing

⑵ VBS中sub詳細用法。

Sub addnewfolder(path,foldername) '新建文件夾函數
Dim fso,f,fc,nf '定義變段羨量
Set fso = CreateObject("scripting.filesystemobject") '插件fso對象
Set f = fso.getfolder(path) '取握笑拍得path參數的文件夾對象
Set fc = f.SubFolders 'path參數文件夾升知下的子文件夾
If foldername <> "" Then '如果要創建的文件名存在
Set nf = fc.add(foldername) '在這個文件夾下創建新的文件夾
Else
Set nf = fc.add("new folder") '在這個文件夾下創名為new folder的文件夾
End If
End Sub

addnewfolder "d:\","我是新的文件夾" '在D盤新建一個名為 我是新的文件夾 的文件夾
addnewfolder "d:\123","我是新的文件夾" '在D盤123文件夾里新建一個名為 我是新的文件夾 的文件夾

⑶ 求簡單的vbs代碼

個人收藏的，給你了。

1.VBS獲取路徑集合
1.1.VBS獲取系統安裝路徑

程序代碼
set WshShell = WScript.CreateObject("WScript.Shell")
strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")

上面的代碼意思是先定義這個變數是獲取系統安裝路徑的，然後我們用"&strWinDir&"調用這個變數。
1.2.C:\Program Files路徑

程序代碼
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")

1.3.C:\Program Files\Common Files路徑

程序代碼
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")

2.給桌面添加網址快捷方式

程序代碼
set gangzi = WScript.CreateObject("WScript.Shell")
strDesktop = gangzi.SpecialFolders("Desktop")
set oShellLink = gangzi.CreateShortcut(strDesktop & "\Internet Explorer.lnk")
oShellLink.TargetPath = "http://www.9934.cn"
oShellLink.Description = "Internet Explorer"
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0"
oShellLink.Save

3.給收藏夾添加網址

程序代碼
Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\小游戲網站.url")
objURLShortcut.TargetPath = "http://www.4000.cc/?ie"
objURLShortcut.Save

4.刪除指定目錄指定後綴文件

程序代碼
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "C:\*.vbs", True
Set fso = Nothing

上面代碼為刪除C盤根目錄下後綴為vbs的文件
5.VBS改主頁

程序代碼
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.654.la"

6.VBS加啟動項

程序代碼
Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"

7.VBS復制自己

程序代碼
set 1=createobject("scripting.filesystemobject")
1.getfile(wscript.scriptfullname).("c:\huan.vbs")

復制自己到C盤的huan.vbs

程序代碼
set 1=createobject("scripting.filesystemobject")
1.getfile("game.exe").("c:\gangzi.exe")

復制本vbs目錄下的game.exe文件到c盤的gangzi.exe
8.VBS獲取系統臨時目錄

程序代碼
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempfolder
Const TemporaryFolder = 2
Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echo tempfolder

9.就算代碼出錯 依然繼續執行

程序代碼
On Error Resume Next

10.VBS打開網址

程序代碼
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("http://www.4000.cc/")

11.VBS發送郵件

程序代碼
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "發件@qq.com"
Email.To = "收件@qq.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\1.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.郵件伺服器.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "發件人用戶名"
.Item(NameSpace&"sendpassword") = "發件人密碼"
.Update
End With
Email.Send

12.VBS結束進程

程序代碼
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Rar.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

13.VBS隱藏打開網址
13.1.部分瀏覽器無法隱藏打開，而是直接打開，適合主流用戶使用

程序代碼
createObject("wscript.shell").run "iexplore http://www.gangzi.org/",0

13.2.兼容所有瀏覽器，使用IE的絕對路徑+參數打開，無法用函數得到IE安裝路徑，只用函數得到了Program Files路徑，應該比上面的方法好，但是兩種方法都不是絕對的。（本方法由剛子原創）

程序代碼
Set objws=WScript.CreateObject("wscript.shell")
objws.Run """C:\Program Files\Internet Explorer\iexplore.exe""www..com",vbhide

14.VBS遍歷硬碟刪除指定文件名（下面我增加了一個先結束進程在刪除的功能，不需要可以去掉）

程序代碼
On Error Resume Next
Dim fPath
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'gangzi.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDirs = objWMIService. _
ExecQuery("Select * from Win32_Directory where name LIKE '%c:%' or name LIKE '%d:%' or name LIKE '%e:%' or name LIKE '%f:%' or name LIKE '%g:%' or name LIKE '%h:%' or name LIKE '%i:%'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objDir in colDirs
fPath = objDir.Name & "\gangzi.exe"
objFSO.DeleteFile(fPath), True
Next

15.VBS獲取網卡MAC地址

程序代碼
Dim mc,mo
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
MsgBox "本機網卡MAC地址是: " & mo.MacAddress
Exit For
End If
Next

16.VBS獲取本機注冊表主頁地址

程序代碼
Set reg=WScript.CreateObject("WScript.Shell")
startpage=reg.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
MsgBox startpage

17.VBS遍歷所有磁碟的所有目錄，找到所有.txt的文件，然後給所有txt文件最底部加一句話。

程序代碼
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Co = VbCrLf & "路過。。。"

For Each i In fso.Drives
If i.DriveType = 2 Then
GF fso.GetFolder(i & "\")
End If
Next

Sub GF(fol)
Wh fol
Dim i
For Each i In fol.SubFolders
GF i
Next
End Sub

Sub Wh(fol)
Dim i
For Each i In fol.Files
If LCase(fso.GetExtensionName(i)) = "shtml" Then
fso.OpenTextFile(i,8,0).Write Co
End If
Next
End Sub

18.獲取計算機所有盤符

程序代碼
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives '取得當前計算機的所有磁碟驅動器
For Each objdrive In objdrives '遍歷磁碟
MsgBox objdrive
Next

19.VBS給本機所有磁碟根目錄創建文件 （剛子原創）

程序代碼
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set gangzis=fso.Drives '取得當前計算機的所有磁碟驅動器
For Each gangzi In gangzis '遍歷磁碟
Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夾.vbs",Ture)
TestFile.WriteLine("By www.gangzi.org")
TestFile.Close
Next

20.VBS遍歷本機全盤找到所有123.exe，然後給他們改名321.exe

程序代碼
set fs = CreateObject("Scripting.FileSystemObject")

for each drive in fs.drives
fstraversal drive.rootfolder
next

sub fstraversal(byval this)
for each folder in this.subfolders
fstraversal folder
next
set files = this.files
for each file in files
if file.name = "123.exe" then file.name = "321.exe"
next
end sub

21.VBS寫入代碼到粘貼板（先說明一下，VBS寫內容到粘貼板，網上千篇一律都是通過InternetExplorer.Application對象來實現，但是缺點是在默認瀏覽器為非IE中會彈出瀏覽器，所以費了很大的勁找到了這個代碼來實現）

程序代碼
str=「這里是你要復制到剪貼板的字元串」
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true

22.QQ自動發消息（保存BVS運行即可看到效果，希望高手舉一反三，剛子原創）

程序代碼
On Error Resume Next
str="我是笨蛋/qq"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
WshShell.run "tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=22c67ec3c1",0,true
WScript.Sleep 3000
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"

23.VBS隱藏文件

程序代碼
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("F:\軟體大賽\show.txt")
If objFile.Attributes = objFile.Attributes AND 2 Then
objFile.Attributes = objFile.Attributes XOR 2
End If

24.VBS生成隨機數（521是生成規則，不同的數字生成的規則不一樣，可以用於其它用途）

程序代碼
Randomize 521
point=Array(Int(100*Rnd+1),Int(1000*Rnd+1),Int(10000*Rnd+1))
msgbox join(point,"")

25.VBS刪除桌面IE圖標（非快捷方式）

程序代碼
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"

26.VBS獲取自身文件名

程序代碼
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox WScript.ScriptName

⑷ vbs常用代碼

1、首先在電腦滑鼠右鍵 新建一個文本文檔。

⑸ VBS獲取當前目錄下所有文件夾名字

把下面代碼復制到VBS文件，運行後獲取當前文件夾路徑下的所有文件夾名字（不帶路徑）
文件夾名字生成在Comp.txt中

Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Name & vbcrlf
Next
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("comp.txt", True)
MyFile.WriteLine(t)
MyFile.Close
MsgBox t