投稿者 StrConv 日時 2000 年 10 月 28 日 17:43:25: [DG-003931]
回答先: Re: [star wars>Star Wars]半角スペース直後の一文字を大文字化してくれるツールもしくはメソッド探してます。 投稿者 StrConv 日時 2000 年 10 月 28 日 17:04:18
path1(c:\temp)以下全フォルダ内の全ファイルを対象。
excelのアクティブシートに吐出す。(ren "xxx" "yyy")
Private Sub test1()
Dim xdir(512, 512) As String, myname As String
path1 = "c:\temp": xdir(1, 1) = path1
cnt1 = 1: cnt2 = 1: y = 0: tcnt = 1
Do
cntm = cnt1: cnt1 = 0
For X = 1 To cntm Step 1
mypathx = xdir(X, cnt2) & "\": myname = Dir(mypathx, 23)
Do While myname ""
If myname "." And myname ".." Then
If (GetAttr(mypathx & myname) And vbDirectory) = vbDirectory Then
cnt1 = cnt1 + 1: xdir(cnt1, cnt2 + 1) = mypathx & myname
Else
myname2$ = StrConv(myname, vbProperCase): y = y + 1
path2$ = mypathx & myname
Cells(y, 1) = "ren " & Chr(34) & path2 & Chr(34) & " " & Chr(34) & myname2 & Chr(34)
End If
End If
myname = Dir
Loop
Next X
cnt2 = cnt2 + 1
Loop Until cnt1 = 0
End Sub