Blogへの画像Uploader作成記～その3～

今回以降、各回で一ずつ機能を紹介していきます。
今回の機能は、「所定のフォルダをチェックして画像ファイル(当初は、ただファイル)の有無をチェック」です。

ファイルの有無を確認するにはDirコマンドを使います。

■構文■Return = Dir[(pathname[, attributes])]
　pathname　 ：Uploadする画像の保存先を文字列型で指定
　attributes ：ファイルの拡張子や属性などでフィルタ可能(基本機能作成完了後に追加予定)
　Return 　　：(該当ファイルが存在した場合)最初のファイル名を文字列型で返却
　　　　　　 ：(該当ファイルが存在した場合)長さ0の文字列 ("") を返却

■例1■
Sub Sample1()
　Dim pathname as String　'パス保存用
　Dim Return as String　　'ファイル名保存用

　pathname = "C:Documents and Settingsユーザ名My DocumentsMy Pictures"
　Return = Dir(pathname)
　If Return = "" Then
　　Msgbox "ファイルが見つかりませんでした"
　Else
　　Msgbox Return
　Endif
End Sub

コレでは、最初の1ファイル(どのファイルかは分からない)しか取得出来ないのでFor～Next文で最後(取得ファイル名が"")まで取得する。

■例2■
Sub Sample2()
　Dim pathname as String　'パス保存用
　Dim Return(256) as String　　'ファイル名保存用
　Dim i as Integer　　　　'カウンタ変数
　
　pathname = "C:Documents and Settingsユーザ名My DocumentsMy Pictures"
　Return(0) = Dir(pathname)
　If Return(0) = "" Then
　　Msgbox "ファイルが見つかりませんでした"
　Else
　　Msgbox Return(0)
　Endif

　For i = 1 to 255 Step 1
　　Return(i) = Dir()　　　　　'※1
　　If Return(i) = "" Then
　　　Exit for
　　Else
　　　Msgbox Return(i)
　　Endif
　Next i
End Sub

ココでの注意点は※1部分。Dir関数に引数を指定しない事。コレにより前回指定された引数が自動的に引き継がれ、且つ、前回の継続取得と判断され2番目移行のファイル名が取得可能です。
～次回に続く～