回答編集履歴

2

修正部分の構文ミスってたので再修正

2019/10/11 02:23

投稿

Youbun
Youbun

スコア125

test CHANGED
@@ -184,7 +184,7 @@
184
184
 
185
185
  If Dir(str_Pass) = "" Then
186
186
 
187
- GetFileData_Txt = ""
187
+ ReDim GetFileData_Txt(0)
188
188
 
189
189
  Exit Function
190
190
 

1

自作関数入れちゃってたので削除

2019/10/11 02:22

投稿

Youbun
Youbun

スコア125

test CHANGED
@@ -184,7 +184,9 @@
184
184
 
185
185
  If Dir(str_Pass) = "" Then
186
186
 
187
- Call OutErrorMessage(DEF_ERROR_NOFILE, str_Pass)
187
+ GetFileData_Txt = ""
188
+
189
+ Exit Function
188
190
 
189
191
  End If
190
192