アクセス違反が発生してしまいます

[ゲスト]

コード: 全て選択

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の行でアクセス違反が発生してしまいます。
いろいろと試しましたがどうしてもエラーがとれないので、どなたか助言お願いします。

[7]

コード: 全て選択

Dim cudir[256] As Byte 
	GetCurrentDirectory(256,cudir)
	OutputDebugString(cudir)

とすると何も問題がないので他に何かありそうです。

ということで、以下のようにしてみたんですけど、どうでしょう？
MakeStr関数を使っているんですけど。

[ここをクリックすると内容が表示されます]

[ゲスト]

正常に動作しました。
他の部分にも問題はなさそうなので大丈夫かと思います。
ありがとうございました。