- 629 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/04/12(土) 20:44:52 ID:PGp8QwAQ0]
- >>596
亀レスですが、エクセルのvbaあたりでやればできなくはないです。
うちでは何種類か音源ファイル管理用エクセルを作っています。
こんな感じ
'先頭のファイル名の取得
strFILENAME = Dir(strPATHNAME & "\*.wav", vbNormal)
' ファイルが見つからなくなるまで繰り返す
Do While strFILENAME <> ""
If Left(strFILENAME, len1) = delName Then
NewFileName = AddName & Mid(strFILENAME, len1 + 1)
Name strFILENAME As NewFileName
Debug.Print strFILENAME, NewFileName
End If
' 次のファイル名を取得 Debug.Print strFILENAME, NewFileName
strFILENAME = Dir()
Loop
|
 |
