ダンブル扉

ダンブル扉さんのプロフィール

組込みエンジニア。元哲学徒。エッセイが好き。

プロフィール最終更新日:

はてなID
ikenohotorino
ニックネーム
ダンブル扉
一行紹介

組込みエンジニア。元哲学徒。エッセイが好き。

自己紹介

ブログhttp://ikenohotori.hatenablog.com/

twitterhttps://twitter.com/danburutobira?lang=ja


【参考パス

https://qiita.com/koara-local/items/cf7ff673b112af4e9699

エクセル

選択 Shift + Space

https://kokodane.com/short1b.htm

行挿入 Shift + Ctrl + +

【T32】

https://www.lauterbach.com/pdfnew/training_debugger_j.pdf

Winmerge

[表示]→ [ロケーションペイン] [Diffペイン

Alt F8

F5

Option Explicit

'*********************************************************

'   指定フォルダ内のファイル名一覧を取得

'*********************************************************

Sub Get_FileName()

Const cnsTitle = "ファイル名一覧取得"

Const cnsDIR = "\*.*"

Dim xlAPP As Application

Dim strPath As String

Dim strFilename As String

Dim GYO As Long

Set xlAPP = Application

' フォルダ場所指定する

strPath = "C:\Users\直弥\Desktop\vbs"

' フォルダ存在確認 --- 必要場合のみ記述 ---

If Dir(strPath, vbDirectory) = "" Then

MsgBox "指定フォルダ存在しません。", vbExclamation, cnsTitle

Exit Sub

End If

' 先頭のファイル名の取得

strFilename = Dir(strPath & cnsDIR, vbDirectory)

' ファイルが見つからなくなるまで繰り返す

Do While strFilename <> ""

' 行を加算

GYO = GYO + 1

Cells(GYO, 1).Value = strFilename

' 次のファイル名を取得

strFilename = Dir()

Loop

End Sub

'-----------------<< End of Source >>------------------