指定フォルダ内のサブフォルダを含めた全ファイル取得

Dim cnt As Long Sub Sample3(Path As String) Dim buf As String, f As Object buf = Dir(Path & "\*.xls") Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = Path & "\" & buf buf = Dir() Loop With CreateObject("Scripting.FileSystemObject") For Ea…

2016-10-24

コピー

Sub memo1() Dim m As String Console.WriteLine("書いて") m = Console.ReadLine Dim sw As New System.IO.StreamWriter("メモ帳", _ True, Text.Encoding.GetEncoding("shift_jis")) 'TextBox1.Textの内容を書き込む sw.Write(m & vbCrLf) '閉じる sw.Clos…

2016-10-23

初ブログ！

言っておきますが、実は初ブログなんです！え、今更？嘘？と思う方がいるかもしれませんが、ガチです。さておき、何故ブログ始めたかいうと、ハテナブログそのもの自体がデザイン的にシンプルで単に気に入ったから。無印良品っぽいし。記念に日付と今の状…