Question

我一直在尝试查找和编写一个vbscript，使我能够找到文件路径，然后将其位置插入text.txt文件

例如：

点击Find.vbs

窗口打开以搜索文件夹或驱动器

选择c：\ test folder

您确定要选择c：\ test文件夹吗？提示

单击是按钮

text.txt文件中的

单词driveselect更改为c：\ test

我发现这会打开窗口，然后让我选择一个文件，然后打开一个msgbox来显示文件名，但不会只选择一个文件夹

Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=FILE>
<script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
sFileSelected = oExec.StdOut.ReadLine
wscript.echo sFileSelected

我发现有一些代码可以更改word文件中的文本，但不会更改带有输入的文本文件。

任何帮助将不胜感激。

感谢

Answer 1

您可以使用Excel应用程序的FileDialog选择文件夹。

Dim FolderName, msg, msgResponse

Do
    FolderName = getSelectedFolderPath
    msg = "Are you sure you want to select " & vbCrLf & FolderName & "?"
    msgResponse =  MsgBox(msg, vbYesNo,"") 
Loop Until Len(FolderName) = 0 Or msgResponse = vbYes

Function getSelectedFolderPath
    Const msoFileDialogFolderPicker = 4
    Dim xlApp
    Set xlApp = CreateObject("Excel.Application")
    With xlApp.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            getSelectedFolderPath = .SelectedItems(1)
        End If
    End With
    xlApp.Quit
End Function

VBScript找到路径文件夹，然后将路径输入到文本txt文件中

1 个答案: