搜索
您的当前位置:首页正文

vbs中获取脚本当前路径的2个方法

2023-12-01 来源:字库网

方法一:

currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path

方法二:

currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

更多vbs中获取脚本当前路径的2个方法相关文章请关注PHP中文网!

小编还为您整理了以下内容,可能对您也有帮助:

怎么获取vbs脚本文件所在的路径

Option Explicit
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.GetFile(WScript.ScriptFullName)
MsgBox strFile.ParentFolder
Set objFSO = Nothing
Set strFile = Nothing

怎么获取vbs脚本文件所在的路径

Option Explicit
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.GetFile(WScript.ScriptFullName)
MsgBox strFile.ParentFolder
Set objFSO = Nothing
Set strFile = Nothing

vbs读取路径

Dim QQLNK,QQpath '用来存放QQ快捷方式文件路径 和 QQ真实目录
Set cik = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(cik.SpecialFolders("Desktop")) '读取桌面路径Set fc = f.Files
For Each fs in fc
if instr(LCase(fs.name),"qq") then
if Right(LCase(fs.name),4)=".lnk" then QQLNK = fs.name '获取含QQ字样的快捷方式。
end if
Next

set Shortcuts = cik.CreateShortcut(QQLNK)
QQpath = Shortcuts.TargetPath '获取快捷方式指向路径
QQpath = mid(QQpath,1,InStrRev(QQpath,"\")) '整理路径(获取QQ目录)fso.CopyFile "c:\qq.bat", QQpath,True '复制文件(如果存在就覆盖)WScript.Quit '退出脚本

vbs读取路径

Dim QQLNK,QQpath '用来存放QQ快捷方式文件路径 和 QQ真实目录
Set cik = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(cik.SpecialFolders("Desktop")) '读取桌面路径Set fc = f.Files
For Each fs in fc
if instr(LCase(fs.name),"qq") then
if Right(LCase(fs.name),4)=".lnk" then QQLNK = fs.name '获取含QQ字样的快捷方式。
end if
Next

set Shortcuts = cik.CreateShortcut(QQLNK)
QQpath = Shortcuts.TargetPath '获取快捷方式指向路径
QQpath = mid(QQpath,1,InStrRev(QQpath,"\")) '整理路径(获取QQ目录)fso.CopyFile "c:\qq.bat", QQpath,True '复制文件(如果存在就覆盖)WScript.Quit '退出脚本

VB中如何获取当前程序的绝对路径

System.Environment.CurrentDirectory;

//例: c:/test/

Application.ExecutablePath;(包括名称)

//例: c:/test/myapp.exe

Application.StartupPath;(不包括名称)

//例: c:/test/

绝对路径是直接到达目标位置,通常是从盘符开始的路径。完整的描述文件位置的路径就是绝对路径,以web站点根目录为参考基础的目录路径。

绝对路径名的指定是从树型目录结构顶部的根目录开始到某个目录或文件的路径,由一系列连续的目录组成,中间用斜线分隔,直到要指定的目录或文件,路径中的最后一个名称即为要指向的目录或文件。之所以称为绝对,意指当所有网页引用同一个文件时,所使用的路径都是一样的。

扩展资料

几种编程语言获取程序所在路径的方法:

1、在golang程序里面获取程序所在路径:

package main

import (

"path/filepath"

"os"

"fmt"

"log"

)

func main() {

execDir, err := filepath.Abs(filepath.Dir(os.Args[0]))

if err = nil {

log.Fatal(err)

}fmt.Println(execDir)

}

2、python脚本所在路径:

import os

print(os.path.split(os.path.realpath(__file__))[0])

3、shell脚本获取脚本的绝对路径:

DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"

怎么获取vbs脚本文件所在的路径

Option Explicit

Dim objFSO,strFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set strFile = objFSO.GetFile(WScript.ScriptFullName)

MsgBox strFile.ParentFolder

Set objFSO = Nothing

Set strFile = Nothing

本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。

上一篇:

下一篇:

热门图文

  • 送周子华南归的作者 送周子华南归的作者是什么]

    《送周子华南归》陆文圭作者:陆文圭。《送周子华南归》作者:陆文圭。年代:元代。别称:墙东先生。字号:字子方。出生地:江阴(今属江苏)人。出生时间:1252。去世时间:1336。主要作品:《辛卯二月记异》《新移瑞香不得雨有叹》《月·青天一片玉》《挽吉州刘总管》《为刘君符赋乐山诗》等。我们为您从以下几个方面提供送周子华南归的详细介绍。一、《送周子华南归》的全文 点此查看《送周子华南归》的详细内容。此日与君别,重逢未有期。衰年行欲尽,近事或难知。浩荡风云会,萧条草木悲。三吴多俊杰,试与问安危。二、《送周子华南归》陆文圭其他诗词《赤壁图·公瑾子瞻二龙》、《题戴嵩牛图》、《雅宜山在城西五十里有德庵在其下穹寄山福寺》、《送仲华葛兄·蓉城诸葛何绵绵》、《送徐舜辑·彦霖父子魏公客》。相同朝代的诗歌;

  • 次韵叶硕夫南归见贻的全文

    《次韵叶硕夫南归见贻》李弥逊全文:未挂丹题雁塔中,重来溪上觅筠翁。相期老眼横遥碧,莫着征衫走软红。得失漫嗟蝉翼重,才名合见马群空。三年小度惊人手,未信朱衣也不公。《次韵叶硕夫南归见贻》全文:未挂丹题雁塔中,重来溪上觅筠翁。相期老眼横遥碧,莫着征衫走软红。得失漫嗟蝉翼重,才名合见马群空。三年小度惊人手,未信朱衣也不公。作者:李弥逊。年代:宋代。我们为您从以下几个方面提供次韵叶硕夫南归见贻的详细介绍。一、《次韵叶硕夫南归见贻》的全文 点此查看《次韵叶硕夫南归见贻》的详细内容。未挂丹题雁塔中,重来溪上觅筠翁。相期老眼横遥碧,莫着征衫走软红。得失漫嗟蝉翼重,才名合见马群空。三年小度惊人手,未信朱衣也不公。

  • 送周子华南归的作者是什么

    《送周子华南归》陆文圭作者:陆文圭。《送周子华南归》作者:陆文圭。年代:元代。别称:墙东先生。字号:字子方。出生地:江阴(今属江苏)人。出生时间:1252。去世时间:1336。主要作品:《辛卯二月记异》《新移瑞香不得雨有叹》《月·青天一片玉》《挽吉州刘总管》《为刘君符赋乐山诗》等。我们为您从以下几个方面提供送周子华南归的详细介绍。一、《送周子华南归》的全文 点此查看《送周子华南归》的详细内容。此日与君别,重逢未有期。衰年行欲尽,近事或难知。浩荡风云会,萧条草木悲。三吴多俊杰,试与问安危。二、《送周子华南归》陆文圭其他诗词《赤壁图·公瑾子瞻二龙》、《题戴嵩牛图》、《雅宜山在城西五十里有德庵在其下穹寄山福寺》、《送仲华葛兄·蓉城诸葛何绵绵》、《送徐舜辑·彦霖父子魏公客》。相同朝代的诗歌;

  • 次韵叶硕夫南归见贻全文

    《次韵叶硕夫南归见贻》李弥逊全文:未挂丹题雁塔中,重来溪上觅筠翁。相期老眼横遥碧,莫着征衫走软红。得失漫嗟蝉翼重,才名合见马群空。三年小度惊人手,未信朱衣也不公。《次韵叶硕夫南归见贻》全文:未挂丹题雁塔中,重来溪上觅筠翁。相期老眼横遥碧,莫着征衫走软红。得失漫嗟蝉翼重,才名合见马群空。三年小度惊人手,未信朱衣也不公。作者:李弥逊。年代:宋代。我们为您从以下几个方面提供次韵叶硕夫南归见贻的详细介绍。一、《次韵叶硕夫南归见贻》的全文 点此查看《次韵叶硕夫南归见贻》的详细内容。未挂丹题雁塔中,重来溪上觅筠翁。相期老眼横遥碧,莫着征衫走软红。得失漫嗟蝉翼重,才名合见马群空。三年小度惊人手,未信朱衣也不公。

  • 送周子华南归的作者

    《送周子华南归》陆文圭作者:陆文圭。《送周子华南归》作者:陆文圭。年代:元代。别称:墙东先生。字号:字子方。出生地:江阴(今属江苏)人。出生时间:1252。去世时间:1336。主要作品:《辛卯二月记异》《新移瑞香不得雨有叹》《月·青天一片玉》《挽吉州刘总管》《为刘君符赋乐山诗》等。我们为您从以下几个方面提供送周子华南归的详细介绍。一、《送周子华南归》的全文 点此查看《送周子华南归》的详细内容。此日与君别,重逢未有期。衰年行欲尽,近事或难知。浩荡风云会,萧条草木悲。三吴多俊杰,试与问安危。二、《送周子华南归》陆文圭其他诗词《赤壁图·公瑾子瞻二龙》、《题戴嵩牛图》、《雅宜山在城西五十里有德庵在其下穹寄山福寺》、《送仲华葛兄·蓉城诸葛何绵绵》、《送徐舜辑·彦霖父子魏公客》。相同朝代的诗歌;

Top