質問編集履歴
1
※部分を追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -33,7 +33,7 @@
|
|
|
33
33
|
|
|
34
34
|
'If 文を使って拡張子毎の処理を記述する。
|
|
35
35
|
If strExtension = "pdf" Then
|
|
36
|
-
tmpname = Replace(tmp,".pdf","")
|
|
36
|
+
tmpname = Replace(tmp,".pdf","") '※ファイル名に不要な「.pdf」が入ってしまうため削除しています。
|
|
37
37
|
|
|
38
38
|
before = objFile.Name
|
|
39
39
|
after = Replace(before, "test",tmpname)
|