掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダ内のファイル名を変更するには？ (ID:146101)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ。 拡張子に'_'が含まれていても変換しているので変換したくないときには適当に修正してください。 Dim sFolder As String Dim intFolderLen As Long Dim sFNames() As String Dim sNewFName As String sFolder = "C:\Test" intFolderLen = sFolder.Length + 1 If System.IO.Directory.Exists(sFolder) Then sFNames = System.IO.Directory.GetFiles(sFolder) For intCnt As Integer = 0 To sFNames.Length - 1 sNewFName = sFolder & "\" & sFNames(intCnt).Substring(intFolderLen, sFNames(intCnt).Length - intFolderLen).Replace("_", "-") If sNewFName <> sFNames(intCnt) Then System.IO.File.Move(sFNames(intCnt), sNewFName) End If Next End If
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.