VBSへたれリファレンス 空きドライブレターの取得空きドライブレターの取得 空いているドライブレターを検索してドライブ名を返すモジュール。 ネットワークドライブを割り当てる前の処理等に利用します。 Function FreeDrive() Dim Index Dim DriveLetter Dim objFso Set objFso = CreateObject("Scripting.FileSystemObject") For Index = 3 To 26 DriveLetter = Chr(64 + Index) If Not objFso.DriveExists(DriveLetter) Then FreeDrive = DriveLetter Set objFso = Nothing Exit Function End If Next Set objFso = Nothing call FreeDrive() End Funct
