よろしくお願いします。
VB6.0sp6,Windows2000professionalsp4です。
VBでのディレクトリの有無の判別方法を検索していて、サンプルをひとつ見つけたのですが・・・↓がコードです。
------------------------------------------------
Private Declare Function PathIsDirectory Lib "SHLWAPI.DLL" Alias "PathIsDirectoryA" _
(ByVal pszPath As String) As Long
'
' ディレクトリであるかどうか
'
Private Function IsDirectory(ByVal strFileName As String) As Boolean
' strFilename : チェックしたいディレクトリ名
' 戻り値 : ディレクトリであればTrueを返す。
Dim lngResult As Long
lngResult = PathIsDirectory(strFileName)
IsDirectory = Not (lngResult = 0) 'ここが理解できません
End Function
Private Sub Command1_Click()
Dim strFileName As String
strFileName = "C:\WINNT\Profiles\Administrator\My Documents\HEROPA\TestCls\SHLWAPI"
Msgbox IsDirectory(strFileName)
End Sub
--------------------------------------------
IsDirectory関数は、PathIsDirectoryの戻り値がLong型のため、それをBooleanに直すためのものだと思うのですが、
IsDirectory = Not (lngResult = 0)はどういう原理なのでしょうか？
これだとlngResultにどんな値が入ろうがIsDirectoryに返されるのはTrueになってしまうと思うのですが(lngResultに0が代入され、それがNotされるから）、しかし実際に実行してみるとちゃんとTrueとFalseを判定しています。いったいどうしてなのでしょうか？
それと、PathIsDirectoryの宣言で、関数の戻り値がLongになっていますが、他に見つけたサンプルではBooleanとなっていました。どちらが正しいのでしょうか？
よろしくお願いします。
VB6.0sp6,Windows2000professionalsp4です。
VBでのディレクトリの有無の判別方法を検索していて、サンプルをひとつ見つけたのですが・・・↓がコードです。
------------------------------------------------
Private Declare Function PathIsDirectory Lib "SHLWAPI.DLL" Alias "PathIsDirectoryA" _
(ByVal pszPath As String) As Long
'
' ディレクトリであるかどうか
'
Private Function IsDirectory(ByVal strFileName As String) As Boolean
' strFilename : チェックしたいディレクトリ名
' 戻り値 : ディレクトリであればTrueを返す。
Dim lngResult As Long
lngResult = PathIsDirectory(strFileName)
IsDirectory = Not (lngResult = 0) 'ここが理解できません
End Function
Private Sub Command1_Click()
Dim strFileName As String
strFileName = "C:\WINNT\Profiles\Administrator\My Documents\HEROPA\TestCls\SHLWAPI"
Msgbox IsDirectory(strFileName)
End Sub
--------------------------------------------
IsDirectory関数は、PathIsDirectoryの戻り値がLong型のため、それをBooleanに直すためのものだと思うのですが、
IsDirectory = Not (lngResult = 0)はどういう原理なのでしょうか？
これだとlngResultにどんな値が入ろうがIsDirectoryに返されるのはTrueになってしまうと思うのですが(lngResultに0が代入され、それがNotされるから）、しかし実際に実行してみるとちゃんとTrueとFalseを判定しています。いったいどうしてなのでしょうか？
それと、PathIsDirectoryの宣言で、関数の戻り値がLongになっていますが、他に見つけたサンプルではBooleanとなっていました。どちらが正しいのでしょうか？
VB6でCADソフトで作られたデータを読み込み、その中から製品名を読み込み、アクセスに保存されている製品名と比較し、一致したものがあれば、採寸必要なし、なければ採寸して下さい、というようなフォーマットに入れて印刷し、採寸が必要なもの、つまり新規の製品名はアクセスに追加したいのですが、現時点では、
Open "C:\users\partname" For Input As #1
Do While Not EOF
Input #1, mytext
If Mid(mytext, 74, 1) <> "" Then
パーツ名 = Mid(mytext, 17, 25)
パーツ名 = Trim(パーツ名)
End If
Loop
という感じでやっとパーツ名だけ読み込めるようになりました。ここで質問なのですが、このプログラムの前に、データべ－スとテーブルを開いておくのでしょうか？それともパーツ名 = Trim(パーツ名)の後でデータベースをオープンし、テーブルもオープンなんでしょうか？順序、関数など全くわかりません(>_<)心臓が痛いです(-_-;)よろしくお願いします。
