YYYYMMDDHHMM形式のテキストファイルを作成したい (ID:90896)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 違いました。 VBScriptですね。 Private Sub Main() Dim tmpDate Dim strTxtName tmpDate = Now() strTxtName = Year(tmpDate) & FormatZero(Month(tmpDate),2) & FormatZero(Day(tmpDate),2) & _ FormatZero(Hour(tmpDate),2) & FormatZero(Minute(tmpDate),2) & _ FormatZero(Second(tmpDate),2) & "tmp.txt" msgbox strTxtName End Sub Private Function FormatZero(strFormat,lngSize) Dim lngSabunSize Dim strZero lngSabunSize = lngSize - Len(strFormat) For i = 1 To lngSabunSize strZero = strZero & "0" Next FormatZero = strZero & strFormat End Function Call Main 参考にして下さい。