質問編集履歴
4
ちなみにvbsの文字コードはSJISでphpの文字コードはUTF-8です。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
|
35
|
-
Const TARGET_FOLDER = "
|
|
35
|
+
Const TARGET_FOLDER = "d:..." '※フォルダを指定
|
|
36
36
|
|
|
37
37
|
Const REPLACE_FROM = "so" '※置換前文字列
|
|
38
38
|
|
|
@@ -66,15 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
|
|
68
68
|
|
|
69
|
-
If objFile.Size > 0 Then
|
|
70
|
-
|
|
71
|
-
MsgBox "終了", vbInformation
|
|
72
|
-
|
|
73
|
-
End If
|
|
74
|
-
|
|
75
|
-
|
|
76
|
-
|
|
77
|
-
If LCase(strExt) = "php" Then
|
|
69
|
+
If objFile.Size > 0 And LCase(strExt) = "php" Then
|
|
78
70
|
|
|
79
71
|
Set infile = objFSO.OpenTextFile(strFilePath,ForReading)
|
|
80
72
|
|
3
変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
|
35
|
-
Const TARGET_FOLDER = "F:\「は」
|
|
35
|
+
Const TARGET_FOLDER = "F:\「は」" '※フォルダを指定
|
|
36
36
|
|
|
37
37
|
Const REPLACE_FROM = "so" '※置換前文字列
|
|
38
38
|
|
|
@@ -67,6 +67,8 @@
|
|
|
67
67
|
|
|
68
68
|
|
|
69
69
|
If objFile.Size > 0 Then
|
|
70
|
+
|
|
71
|
+
MsgBox "終了", vbInformation
|
|
70
72
|
|
|
71
73
|
End If
|
|
72
74
|
|
2
回答通りに直したのですが、同じエラー「プロシージャの呼び出し、または因数が不正です。」が出ます
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
|
35
|
-
Const TARGET_FOLDER = "
|
|
35
|
+
Const TARGET_FOLDER = "F:\「は」にバックアップが入っているもの\I(ミュージック母)チェック\H(音声系)チェック\みんポケ\民譚ポケットエポック（ホームページ）\som\utau\record_audio\ここまで" '※フォルダを指定
|
|
36
36
|
|
|
37
37
|
Const REPLACE_FROM = "so" '※置換前文字列
|
|
38
38
|
|
|
@@ -63,6 +63,14 @@
|
|
|
63
63
|
strFilePath = objFSO.BuildPath(TARGET_FOLDER, objFile.Name)
|
|
64
64
|
|
|
65
65
|
strExt = objFSO.GetExtensionName(objFile.Name)
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
If objFile.Size > 0 Then
|
|
70
|
+
|
|
71
|
+
End If
|
|
72
|
+
|
|
73
|
+
|
|
66
74
|
|
|
67
75
|
If LCase(strExt) = "php" Then
|
|
68
76
|
|
1
htmlをphpに変更しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -64,7 +64,7 @@
|
|
|
64
64
|
|
|
65
65
|
strExt = objFSO.GetExtensionName(objFile.Name)
|
|
66
66
|
|
|
67
|
-
If LCase(strExt) = "h
|
|
67
|
+
If LCase(strExt) = "php" Then
|
|
68
68
|
|
|
69
69
|
Set infile = objFSO.OpenTextFile(strFilePath,ForReading)
|
|
70
70
|
|