0

1>

フォルダー構造内にフォルダーがあります。

2> すべてのファイルへのショートカットを再帰的に作成したい。

ショートカットは、ソースと同じ名前のフォルダー内に配置する必要があります。

3>

要約: 同じフォルダ構造...ファイルの代わりにショートカットのみ

どんなアイデアでも大歓迎です。

4

2 に答える 2

0

ここにあなたが試すことができるvbscriptがあります

Set objFS = CreateObject( "Scripting.FileSystemObject" )
Set oWS = WScript.CreateObject("WScript.Shell") 
strFolder=WScript.Arguments(0)
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
        Go eFolder
    Next
    For Each strFile In objDIR.Files
        shortcut = objFS.BuildPath(objFS.GetParentFolderName(strFile), objFS.GetBaseName(strFile)&".lnk")
        Set oLink = oWS.CreateShortcut(shortCut) 
        oLink.TargetPath = strFile.Path
        oLink.WorkingDirectory = objFS.GetParentFolderName(strFile)
        oLink.Save
        Set oLink=Nothing
    Next
  End If 
End Sub

使用法：

C:\test> cscript //nologo mycreateshortcutscript.vb C:\test
于 2010-10-22T15:05:43.930 に答える
0

再帰について助けが必要ですか、それともこれを達成する方法について簡単なアイデアが必要ですか? 私はそれを書くつもりはありませんが、最初のコマンドが次のような再帰的なバッチ ファイルを使用できます。

batchFile.bat "C:\OriginalLocation" "C:\CopyToLocation"

唯一の問題は、ショートカットを作成するために外部プログラムが必要になることだと思います（簡単なグーグル検索でいくつか見つかります）。VBScript を使用して、外部のショートカット作成プログラムを必要とせずに同じことを実行できる場合があります (これも、Google 検索でいくつかの方法が見つかりました)。

于 2010-10-22T15:05:27.980 に答える