回答編集履歴
2
修正部分の構文ミスってたので再修正
answer
CHANGED
|
@@ -91,7 +91,7 @@
|
|
|
91
91
|
Dim fso_GetFileTxt As Object
|
|
92
92
|
' ファイル存在判定
|
|
93
93
|
If Dir(str_Pass) = "" Then
|
|
94
|
-
|
|
94
|
+
ReDim GetFileData_Txt(0)
|
|
95
95
|
Exit Function
|
|
96
96
|
End If
|
|
97
97
|
' ファイルから変数に格納
|
1
自作関数入れちゃってたので削除
answer
CHANGED
|
@@ -91,7 +91,8 @@
|
|
|
91
91
|
Dim fso_GetFileTxt As Object
|
|
92
92
|
' ファイル存在判定
|
|
93
93
|
If Dir(str_Pass) = "" Then
|
|
94
|
-
|
|
94
|
+
GetFileData_Txt = ""
|
|
95
|
+
Exit Function
|
|
95
96
|
End If
|
|
96
97
|
' ファイルから変数に格納
|
|
97
98
|
Set fso_GetFile = CreateObject("Scripting.FileSystemObject")
|