今回以降、各回で一ずつ機能を紹介していきます。
今回の機能は、「所定のフォルダをチェックして画像ファイル(当初は、ただファイル)の有無をチェック」です。
ファイルの有無を確認するには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番目移行のファイル名が取得可能です。
~次回に続く~
今回の機能は、「所定のフォルダをチェックして画像ファイル(当初は、ただファイル)の有無をチェック」です。
ファイルの有無を確認するには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番目移行のファイル名が取得可能です。
~次回に続く~