掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダ内のファイル名を変更するには？ (ID:146102)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
う〜ん・・・ Imports System.IO Dim szFolder As String Dim al As ArrayList szFolder = "フォルダ名入れて！" al = New ArrayList al.Clear() Dim di As DirectoryInfo di = New DirectoryInfo(szFolder) For Each fi As FileInfo In di.GetFiles("*_*.xxx") al.Add(fi) Next For Each fi As FileInfo In al Dim szNewName As String Dim szDir As String Dim szFile As String Dim szExt As String szDir = Path.GetDirectoryName(fi.FullName) szFile = Path.GetFileNameWithoutExtension(fi.FullName) szExt = Path.GetExtension(fi.FullName) szNewName = szFile.Replace("_", "-") + szExt My.Computer.FileSystem.RenameFile(fi.FullName, szNewName) Next 参考まで・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.