VBS cannot copy folders with spaces to system variables - China DOS Union Forum

There are not many VBS scripts in the forum. But if you go through them all, the owner's problem will no longer be a problem.


    arrArgs = Array("None", "IE", "All Programs", "Control Panel", "Printers and Faxes", _
                    "My Documents", "Favorites", "Startup", "Recent Documents", "Send To", _
                    "Recycle Bin", "Start Menu", "Pending", "My Music", "My Videos", _
                    "Pending", "Desktop", "My Computer", "Network Neighborhood", "NetHood", _
                    "Fonts", "Templates", "All User Start Menu", "All User All Programs", _
                    "All User Startup", "All User Desktop", "MY_AppData", "PrintHood", _
                    "MY_AppData2", "Pending", "Pending", "All User Favorites", "IE Cache", _
                    "Cookies", "History", "All User AppData", "Windows", "System32", _
                    "Programs", "My Pictures", "Current User Root Directory", "Public Components", "Pending", _
                    "Pending", "Pending", "All User Templates", "Shared Documents", _
                    "All User Management", "Administrative Tools", "Network Connections", "Pending", "Pending", _
                    "Pending", "All User Music", "All User Pictures", "All User Videos", _
                    "Desktop Themes", "Resources2", "none", "CD_Burning")
    For i = 1 To UBound(arrArgs)
        If arrArgs(i) = "Current User Root Directory" Then intNumber = i
    Next    
  
    str = "Set objShell = CreateObject(" & Chr(34) & _
               "Shell.Application" & Chr(34) & ")" & vbLf & _
               "Set objFolder = objShell.Namespace(" & intNumber & ")" & vbLf &_
               "Set objFolderItem = objFolder.Self" & vbLf & _
               "strDir = objFolderItem.Path"
    Execute str 
    Wscript.Echo "The code to get ★" & strDir & "★:" & vblf & vblf & str
    Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate "about:blank"
        objIE.document.parentwindow.clipboardData.SetData "text", str
        objIE.Quit
    WScript.Echo "The code has been copied to the clipboard!"
    
    Set objIE = Nothing

Reference link: SendTo + Batch Processing Practical Small Tool - Enhanced Send To
In VBS, you can also get some system directories using Wscript.Shell, but since its content is too little, I rarely use it:


WScript.Echo CreateObject("Wscript.Shell").SpecialFolders("Desktop")

The directories it can get are:

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup

In addition, regarding obtaining environment variables, you can try to implement it using WMI:


For Each x In GetObject("winmgmts:\\.\root\cimv2:Win32_Environment").Instances_
     WScript.Echo x.Name & ":" & vbTab & x.VariableValue
Next

Templates

Floor1　xg911335	Posted 2006-10-20 03:57
初级用户　Posts 50　Credits 134
On Error Resume Next Dim objFSO,oShell Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") Set oShell = WScript.CreateObject("WScript.Shell") objFSO.Copyfolder "aa 12" , “%USERPROFILE%\My Documents" , OverwriteExisting oShell.Run "1.exe" [ Last edited by xg911335 on 2006-10-20 at 03:59 ]

Floor2　electronixtar	Posted 2006-10-20 04:07
铂金会员　Posts 2,672　Credits 7,493
Remember that %USERPROFILE% seems to be under DOS, and in VBS, you need to use Environment to get the environment variable

Floor3　xg911335	Posted 2006-10-20 05:06
初级用户　Posts 50　Credits 134
Give an example to have a look. Thanks to the solution from the upstairs.

Floor4　electronixtar	Posted 2006-10-20 07:01
铂金会员　Posts 2,672　Credits 7,493
Just go to script56.chm to see

Floor5　3742668	Posted 2006-10-20 07:28
荣誉版主　Posts 718　Credits 2,013
There are not many VBS scripts in the forum. But if you go through them all, the owner's problem will no longer be a problem. arrArgs = Array("None", "IE", "All Programs", "Control Panel", "Printers and Faxes", _ "My Documents", "Favorites", "Startup", "Recent Documents", "Send To", _ "Recycle Bin", "Start Menu", "Pending", "My Music", "My Videos", _ "Pending", "Desktop", "My Computer", "Network Neighborhood", "NetHood", _ "Fonts", "Templates", "All User Start Menu", "All User All Programs", _ "All User Startup", "All User Desktop", "MY_AppData", "PrintHood", _ "MY_AppData2", "Pending", "Pending", "All User Favorites", "IE Cache", _ "Cookies", "History", "All User AppData", "Windows", "System32", _ "Programs", "My Pictures", "Current User Root Directory", "Public Components", "Pending", _ "Pending", "Pending", "All User Templates", "Shared Documents", _ "All User Management", "Administrative Tools", "Network Connections", "Pending", "Pending", _ "Pending", "All User Music", "All User Pictures", "All User Videos", _ "Desktop Themes", "Resources2", "none", "CD_Burning") For i = 1 To UBound(arrArgs) If arrArgs(i) = "Current User Root Directory" Then intNumber = i Next str = "Set objShell = CreateObject(" & Chr(34) & _ "Shell.Application" & Chr(34) & ")" & vbLf & _ "Set objFolder = objShell.Namespace(" & intNumber & ")" & vbLf &_ "Set objFolderItem = objFolder.Self" & vbLf & _ "strDir = objFolderItem.Path" Execute str Wscript.Echo "The code to get ★" & strDir & "★:" & vblf & vblf & str Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" objIE.document.parentwindow.clipboardData.SetData "text", str objIE.Quit WScript.Echo "The code has been copied to the clipboard!" Set objIE = Nothing Reference link: SendTo + Batch Processing Practical Small Tool - Enhanced Send To In VBS, you can also get some system directories using Wscript.Shell, but since its content is too little, I rarely use it: WScript.Echo CreateObject("Wscript.Shell").SpecialFolders("Desktop") The directories it can get are: AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup In addition, regarding obtaining environment variables, you can try to implement it using WMI: For Each x In GetObject("winmgmts:\\.\root\cimv2:Win32_Environment").Instances_ WScript.Echo x.Name & ":" & vbTab & x.VariableValue Next Templates

Floor6　lxmxn	Posted 2006-10-20 07:38
版主　Posts 4,938　Credits 11,386
The version master is really powerful. 　　Learned.

Floor7　electronixtar	Posted 2006-10-20 09:05
铂金会员　Posts 2,672　Credits 7,493
Shell.Application……Using this is enough to handle all paths. [ Last edited by electronixtar on 2006-10-21 at 04:31 ]

Floor8　xg911335	Posted 2006-10-21 03:15
初级用户　Posts 50　Credits 134
Thanks to all for your guidance.