| |
▼初心者 さん：
おはようございます。
>しかし、ファイル名が20090305939.txtというようになります。
>個人的には時刻を0939のように0を頭につけたものを作りたいと考えておるのですが、どのようにすればいいでしょうか？わかる方教えてください。よろしくお願いします。
全部まとめて、Now関数でいいんじゃないやろか？
Format(Now, "yyyymmddhhmm")
これで、一応「200903051017」が取得出来ましたが
分も一桁じゃなかったので、「01」表示になってるか確かめられないけど、
多分大丈夫・・・と、思います。
>
>■ソース
> Dim strFileName As String
> Dim intFileNo As Integer
> Dim strData As String
> Dim log As String
> Dim myDate As String
> Dim objFS, objFolder, objTS
>
>
> strFileName = "C:\sample.txt"
> intFileNo = FreeFile
>
> Open strFileName For Input As #intFileNo
>
> Do While Not EOF(intFileNo)
> Line Input #intFileNo, strData
> If log = "" Then
> log = strData
> Else
> log = log & vbNewLine & strData
> End If
> Loop
>
> Close intFileNo
>
> myDate = Format(Date, "yyyymmdd") & Hour(Time) & Minute(Time)
>
>
> Set objFS = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFS.GetFolder("C:\")
> Set objTS = objFolder.CreateTextFile(myDate & ".txt")
> objTS.WriteLine log
> objTS.Close
>
>
>End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
