0

コードは次のとおりです。

Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Select a folder:", OPTIONS, strPath) 

If objFolder Is Nothing Then
Wscript.Quit
End If

Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

wscript.Echo objPath

この部分が機能するようになったので、「objPath」を「file.bat」に書き込む必要があります。バッチ ファイルでは単に「echo objPath>>hello.txt」になりますが、これは vbs では機能しないようです。

誰でも私を助けることができますか？

バッチ ファイルは VBS ファイルを呼び出して、ユーザーがコピーするディレクトリを選択し、次にコピー先のディレクトリを選択するように求めます。その後、バッチ ファイルは、コンピューターが起動するたびに、選択された最初の場所を 2 番目の場所に自動的にコピーします。バックアップ体制みたい！ただし、特定の 1 つのフォルダーのみです。助けてくれてありがとう！

4

1 に答える 1