返回

拖拽文件显示文件路径的VBS代码大全

电脑技巧

VBS 代码助力文件拖拽操作

拖拽文件：用 VBS 代码轻松实现

在日常使用电脑的过程中，我们常常需要将文件拖拽到其他程序中执行操作，例如将文件拖拽到批处理文件中执行，或将文件拖拽到记事本中打开。此时，VBS 代码就派上了用场。

1. VBS 代码实现文件拖拽

1.1 拖拽文件到批处理文件

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.CreateObject("WScript.Shell").Run strFile, 1, False

1.2 拖拽文件到记事本

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.CreateObject("WScript.Shell").Run "notepad.exe " & strFile, 1, False

1.3 VBS 拖拽文件路径

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

MsgBox strFile

1.4 拖拽文件执行批处理

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.CreateObject("WScript.Shell").Run "cmd.exe /c " & strFile, 1, False

1.5 VBS 显示文件路径

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.Echo strFile

1.6 拖拽文件到桌面快捷方式

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.CreateObject("WScript.Shell").Run strFile, 1, False

1.7 如何拖拽文件到桌面

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.CreateObject("WScript.Shell").Run "explorer.exe " & strFile, 1, False

1.8 拖拽文件到 exe

On Error Resume Next

Dim strFile
strFile = WScript.Arguments(0)

If strFile = "" Then
    WScript.Quit
End If

WScript.CreateObject("WScript.Shell").Run strFile & " " & strFile, 1, False

2. 常见问题解答

2.1 如何拖拽文件到某个特定程序？

修改 VBS 代码中指定的程序路径，将其替换为您要拖拽文件的目标程序路径。

2.2 如何在拖拽文件时执行多个操作？

将多个操作命令串联起来，使用分号分隔。例如，将文件拖拽到批处理文件中并执行它：

WScript.CreateObject("WScript.Shell").Run "cmd.exe /c " & strFile & " & pause", 1, False

2.3 拖拽文件时如何获取文件路径？

使用 WScript.Arguments(0) 访问被拖拽文件的路径。

2.4 如何为拖拽文件创建快捷方式？

使用 WScript.CreateObject("WScript.Shell").CreateShortcut() 创建快捷方式，并将文件路径设置为目标。

2.5 拖拽文件时如何显示提示？

使用 MsgBox 函数在拖拽文件时显示提示。

3. 结语

VBS 代码为文件拖拽操作提供了强大的灵活性。通过理解这些代码，您可以轻松实现文件拖拽功能，提升您的工作效率。