掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル保存時に、ファイル名に自動的に連番を付与するには？ (ID：146789)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
01.TXT, 02.TXT, 03.TXT のようにしたいのか File.01, File.02, File.03 のようにしたいのか File01.JPG, File02.JPG, File03.JPG のようにしたいのか また、99 まで到達後はどうしたいのかなど、細かいところが 良く分かりませんが…とりあえず、VB2008 だとこんな感じ。 これにより、C:\Sample\01.TXT が作成されます。 (01.TXT が既にあった場合には 02.TXT が生成されます) 'Imports System 'Imports System.IO 'Imports System.Text '保存させるテキストデータ Dim contents As String = "一行目" & vbNewLine & "二行目" '保存先のフォルダ Dim folderName As String = "C:\Sample\" '空き連番を探してファイル名を取得 Dim getFileName = Function(i As Integer) Path.Combine(folderName, i.ToString("00") & ".TXT") Dim firstIndex = Enumerable.Range(1, 99).First(Function(i) Not File.Exists(getFileName(i))) '保存処理 Dim fullPath As String = getFileName(firstIndex) File.WriteAllText(fullPath, contents, Encoding.GetEncoding("Shift_JIS"))
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.