[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
szler

Rank: 1

帖子
3 
积分
16 
技术
0  
捐助
0  
注册时间
2016-12-14 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2016-12-14 18:45 | 只看该作者 
  1. Option Explicit

  2. 

  3. Dim wso, sDesktop

  4. Set wso = CreateObject("WScript.Shell")

  5. sDesktop = wso.SpecialFolders("Desktop")    '“桌面”文件夹位置

  6. wso.Run "cmd /c md """ & sDesktop & "\fso""", 0, True

  7. Msgbox sDesktop & "\fso 创建成功！" , vbInformation, "提示"
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
3楼
发表于 2016-12-15 12:52 | 只看该作者 
  1. set ws=CreateObject("WScript.Shell")

  2. set fso=CreateObject("Scripting.FileSystemObject")

  3. fso.createfolder ws.SpecialFolders(4)&"\fso"
复制代码

TOP

返回列表