ページ 1 ／ 1
アクセス違反が発生してしまいます
Posted: 2006年6月30日(金) 23:46
by ゲスト
コード: 全て選択
Dim hStatusWnd As DWord
Dim hIcon1 As DWord
Dim A_UNC As Integer
Dim B_UNC As Integer
Dim C_UNC As Integer
Dim A_UN As String
Dim B_UN As String
Dim C_UN As String
Const ID_STATUS = 70
Dim cudir[256] As Byte
GetCurrentDirectory(256,cudir)
Open cudir+"\a.dat" As #1
Field #1,1
Get #1,1,A_UN
Get #1,2,B_UN
Get #1,3,C_UN
Close #1
プログラムの開始部分ですが、GetCurrentDirectoryの行でアクセス違反が発生してしまいます。
いろいろと試しましたがどうしてもエラーがとれないので、どなたか助言お願いします。
Posted: 2006年7月01日(土) 00:16
by 7
コード: 全て選択
Dim cudir[256] As Byte
GetCurrentDirectory(256,cudir)
OutputDebugString(cudir)
とすると何も問題がないので他に何かありそうです。
ということで、以下のようにしてみたんですけど、どうでしょう？
MakeStr関数を使っているんですけど。
[ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]コード: 全て選択
Const ID_STATUS = 70
Dim hStatusWnd As DWord, hIcon1 As DWord
Dim A_UNC As Integer, B_UNC As Integer, C_UNC As Integer
Dim A_UN As String, B_UN As String, C_UN As String
Dim cudir[256] As Byte
GetCurrentDirectory(256,cudir)
Open MakeStr(cudir)+"\a.dat" As #1
Field #1,1
Get #1,1,A_UN
Get #1,2,B_UN
Get #1,3,C_UN
Close #1
できました
Posted: 2006年7月02日(日) 23:41
by ゲスト
正常に動作しました。
他の部分にも問題はなさそうなので大丈夫かと思います。
ありがとうございました。