サポート掲示板

 元暴走族  - 06/6/5(月) 19:55 -
パスワード
2000用に適当に書いたVBSだけど、自分の環境で変更してねぇ。

Dim Tmp
Tmp = ""

Function GetLastDirName(DirName)
Dim i
For i = Len(DirName) To 1 Step -1
If Mid(DirName, i, 1) = "\" Then
Exit For
End If
Next

GetLastDirName = Mid(DirName, (i + 1))
End Function

Sub EnumDir(DirIndex, DirName)
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objDir
Set objDir = objFSO.GetFolder(DirName)

Dim i
For i = 1 To (DirIndex - 1)
Tmp = Tmp & "−"
Next

If DirIndex = 1 Then
Tmp = Tmp & DirName & vbCrLf
Else
Dim LD
LD = GetLastDirName(DirName)
Tmp = Tmp & LD & vbCrLf
End If

With objDir
If .SubFolders.Count > 0 Then
Dim objSubDir
For Each objSubDir In .SubFolders
Call EnumDir((DirIndex + 1), (DirName & "\" & objSubDir.Name))
Next
End If
End With

Set objFSO = Nothing
End Sub

Call EnumDir(0, "C:\Windows\")

Const ForWriting = 2

Dim objFSOTxt
Set objFSOTxt = CreateObject("Scripting.FileSystemObject")
Dim objTxt
Set objTxt = objFSOTxt.OpenTextFile("C:\Dir.Txt", ForWriting, True)
objTxt.WriteLine Tmp
objTxt.Close
Set objFSOTxt = Nothing

MsgBox "処理終了"

291 hits
引用なし
記事が属するツリーの記事を全て表示します 【12182】フォルダの階層だけコピーしたい GABAみるく味 06/6/1(木) 22:11 質問
【12184】使用目的は? 南のかず 06/6/2(金) 4:28
【12186】Re:フォルダの階層だけコピーしたい 島のふ〜らいぼ〜 06/6/2(金) 9:58 情報
【12188】Re:フォルダの階層だけコピーしたい 通りすがりのケアパト 06/6/2(金) 11:17
【12189】Re:フォルダの階層だけコピーしたい 通りすがりのケアパト 06/6/2(金) 11:28
【12190】なるほど! 島のふ〜らいぼ〜 06/6/2(金) 11:43
【12204】皆様ありがとうございます。 GABAみるく味 06/6/3(土) 21:23 質問
【12206】Re:皆様ありがとうございます。 通りすがりのケアパト 06/6/4(日) 13:37
【12211】Re:フォルダの階層だけコピーしたい 元暴走族 06/6/5(月) 19:55

ページ:  ┃  記事番号:   
(SS)C-BOARD v3.5.4 is Free.