ab.com コミュニティ

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

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

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

[code]Dim cudir[256] As Byte
GetCurrentDirectory(256,cudir)
OutputDebugString(cudir)[/code]とすると何も問題がないので他に何かありそうです。

ということで、以下のようにしてみたんですけど、どうでしょう？
MakeStr関数を使っているんですけど。
[hide][code]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[/code][/hide]

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

[code]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[/code]

プログラムの開始部分ですが、GetCurrentDirectoryの行でアクセス違反が発生してしまいます。
いろいろと試しましたがどうしてもエラーがとれないので、どなたか助言お願いします。