Board logo

标题: [问题求助] VBS如何在系统桌面创建指定名称的文件夹 [打印本页]

作者: szler    时间: 2016-12-14 09:09     标题: VBS如何在系统桌面创建指定名称的文件夹

本帖最后由 pcl_test 于 2016-12-14 20:48 编辑
  1. Set objFSO = CreateObject("Scripting.FileSystemObject")
  2. Set objFolder = objFSO.CreateFolder("C:\Users\"&Name&"\desktop\fso")
复制代码
创建了一个脚本.希望运行的时候,会在用户的桌面创建一个名为FSO的文件夹.可是一直报错. 如果C:\Users\"&Name&"\desktop\fso改成 c:\fso  就可以.这是怎么情况.请教怎么写这个脚本.

我希望这个脚本运行时会判断有没有C:\Users\"&Name&"\desktop\fso 这个文件夹.如果有,就什么也不做.如果没有就创建. 请教高手给帮帮忙啊.老板给布置的任务.小白一个完全不会.
作者: yu2n    时间: 2016-12-14 18:45

  1. Option Explicit
  2. Dim wso, sDesktop
  3. Set wso = CreateObject("WScript.Shell")
  4. sDesktop = wso.SpecialFolders("Desktop")    '“桌面”文件夹位置
  5. wso.Run "cmd /c md """ & sDesktop & "\fso""", 0, True
  6. Msgbox sDesktop & "\fso 创建成功!" , vbInformation, "提示"
复制代码

作者: Nsqs    时间: 2016-12-15 12:52

  1. set ws=CreateObject("WScript.Shell")
  2. set fso=CreateObject("Scripting.FileSystemObject")
  3. fso.createfolder ws.SpecialFolders(4)&"\fso"
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2