admin 管理员组

文章数量: 1086019


2024年4月30日发(作者：跷二郎腿对身体的哪些影响)

word格式-可编辑-感谢下载支持

常用VBS代码

获取路径集合

获取系统安装路径

程序代码

set WshShell = Object("")

strWinDir = EnvironmentStrings("%WinDir%")

上面的代码意思是先定义这个变量是获取系统安装路径的，然后我们用"&strWinDir&"调用这个变量。

1.2.C:Program Files路径

程序代码

msgbox CreateObject("").ExpandEnvironmentStrings("%ProgramFiles%")

1.3.C:Program FilesCommon Files路径

程序代码

msgbox CreateObject("").ExpandEnvironmentStrings("%CommonProgramFiles%")

2.给桌面添加网址快捷方式

程序代码

set gangzi = Object("")

strDesktop = lFolders("Desktop")

set oShellLink = Shortcut(strDesktop & "Internet ")

Path = ""

ption = "Internet Explorer"

cation = "%ProgramFiles%Internet , 0"

3.给收藏夹添加网址

程序代码

Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject("ation")

Set objFolder = ace(ADMINISTRATIVE_TOOLS)

Set objFolderItem =

Set objShell = Object("")

strDesktopFld =

Set objURLShortcut = Shortcut(strDesktopFld & "小游戏网站.url")

Path = "/?ie"

word格式-可编辑-感谢下载支持

4.删除指定目录指定后缀文件

程序代码

On Error Resume Next

Set fso = CreateObject("stemObject")

File "C:*.vbs", True

Set fso = Nothing

上面代码为删除C盘根目录下后缀为vbs的文件

改主页

程序代码

Set oShell = CreateObject("")

te "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart

Page",""

加启动项

程序代码

Set oShell=CreateObject("")

te "HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd",""

复制自己

程序代码

set copy1=createobject("stemobject")

e(fullname).copy("c:")

复制自己到C盘的

程序代码

set copy1=createobject("stemobject")

e("").copy("c:")

复制本vbs目录下的文件到c盘的

获取系统临时目录

程序代码

Dim fso

Set fso = CreateObject("stemObject")

Dim tempfolder

Const TemporaryFolder = 2

Set tempfolder = cialFolder(TemporaryFolder)

tempfolder


本文标签： 获取 编辑 指定 后缀 系统

版权声明：本文标题：VBA高级运用 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714451948a680715.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。