- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
396 ：デフォルトの名無しさん[sage]：2015/04/19(日) 13:26:46.19 ID:/0rJTMjp - Windows74bit、office2013です。
Name ステートメントを使ってファイル名を変更するプログラムを作りました。
oldName = Dir(dirName, vbNormal)
Do While oldName <> ""
newPath = dirName & addName & oldName
oldPath = dirName & oldName
Debug.Print oldPath, newPath
Debug.Print Len(newPath)
Name oldPath As newPath
oldName = Dir()
Loop
dirName+oldName を dirName+addName+oldNameに変更するものです。
普通のアスキーコードx20〜x7eのファイル名ならうまく動くようですが
フランス語のアクセント記号や「ae」の合字などがあると
実行時エラー'52' ファイル名または番号が不正です。というエラーが出ます。
何か対策はありますか。
|
- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
397 ：デフォルトの名無しさん[sage]：2015/04/19(日) 13:27:46.33 ID:/0rJTMjp - 「Windows7、64bit、office2013です。」の間違いです。
|
- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
399 ：デフォルトの名無しさん[sage]：2015/04/19(日) 14:48:34.51 ID:/0rJTMjp - >>398
CD情報なので与えられた条件です。音楽CDの各トラックの時間情報を元にgracenoteなどのデータベースを検索して
各トラックの名称を取得し、各トラックの音楽情報をディスクに書き込んでいます。
再生順を正しくするためには複数枚のCDの場合、何枚目かの情報を書き加えないといけないのです。
396のaddNameというのが何枚目かという情報で、oldNameというのが01からの連番で始まった
フランス語もありのトラック名称が続きます。
|
- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
402 ：デフォルトの名無しさん[sage]：2015/04/19(日) 15:36:25.71 ID:/0rJTMjp - >>400
どこかでエンコードをUTF-8にでもすればいいのかと思っていました。
FileSystemObjectですか、やってみます。
|