ページ 1 ／ 1
MSDOSでいうexist相当の動作はどうやるのでしょう？
Posted: 2007年1月12日(金) 23:39
by 穴山＠KEC
MSDOSにはファイルの存在を確認するexistというラインコマンドがありますが、
ABではどうやるのでしょう？
・AB5で作っていただきたく思います。
・今はAB4での開発なので、解決方法をお教えください。
Posted: 2007年1月13日(土) 00:06
by 高信期
ファイル限定です。
確認はAB5CP3でしましたが、おそらくAB3以降ならコンパイルが通ると思います。
コード: 全て選択
#prompt
Dim AFileName As String
AFileName = "C:\WINDOWS\notepad.exe" '適当な絶対パスのファイル名
'ファイル名は存在し、かつそれがディレクトリでなければ
If (GetFileAttributes(StrPtr(AFileName)) And FILE_ATTRIBUTE_DIRECTORY) = 0 Then
Print AFileName + "は存在します"
Else
Print AFileName + "は存在しません"
End If
ＡＢ５へ，導入お願いします。
Posted: 2007年1月26日(金) 12:29
by 穴山＠KEC
・ＡＢ５へ，導入お願いします。
以上
Re: ＡＢ５へ，導入お願いします。
Posted: 2007年1月26日(金) 16:55
by 7
> ・ＡＢ５へ，導入お願いします。
> 以上
高信期さん さんが書きました:確認はAB5CP3でしましたが、おそらくAB3以降ならコンパイルが通ると思います。
以上。
まぁ、冗談です。
コードをよく読んでますか？
データを表示する手段としてプロンプトを用いているだけで、ファイルが存在するかどうかを判定する部分はそこに依存していません。
コード: 全て選択
' 引数はファイル名の絶対パス
' ファイルが存在するなら TRUE が、存在しないなら FALSE が返る
Function exist(ByVal lpFileName As LPSTR) As BOOL
If (GetFileAttributes(lpFileName) And FILE_ATTRIBUTE_DIRECTORY) = 0 Then
Return TRUE
Else
Return FALSE
End If
End Function
以上。
Posted: 2007年1月26日(金) 20:31
by イグトランス
そうではなくて，AB5のライブラリに用意してほしいということではないでしょうか。
それならFile.Existsとして用意されるでしょう。