回答編集履歴
2
ご指摘いただいた箇所の修正
test
CHANGED
@@ -7,6 +7,10 @@
|
|
7
7
|
お手数おかけして誠に恐縮です。
|
8
8
|
|
9
9
|
お時間をとらせてしまうのが誠に申し訳ないので、こちらでも引き続き考え努力する所存です。
|
10
|
+
|
11
|
+
vbDirectoryにつきまして対応、修正いたしました。
|
12
|
+
|
13
|
+
|
10
14
|
|
11
15
|
buf = Dir(targetDir, vbDirectory)
|
12
16
|
|
@@ -28,9 +32,9 @@
|
|
28
32
|
|
29
33
|
|
30
34
|
|
31
|
-
ftpPath = targetbuf buf
|
35
|
+
ftpPath = targetbuf & buf
|
32
36
|
|
33
|
-
rc2 = FTP.Command("MKD " &
|
37
|
+
rc2 = FTP.Command("MKD " & ftpPath)
|
34
38
|
|
35
39
|
Help = FTP.GetReply()
|
36
40
|
|
1
ご指摘いただいた箇所の修正
test
CHANGED
@@ -1,8 +1,12 @@
|
|
1
1
|
迅速にご回答くださりありがとうございました。
|
2
2
|
|
3
|
-
こちらなんですが、
|
3
|
+
こちらのコードなんですが、ご指摘いただいた箇所に関して修正いたしましたが、
|
4
4
|
|
5
|
-
|
5
|
+
私自身の知識不足により、十分な修正ができないままでおります。
|
6
|
+
|
7
|
+
お手数おかけして誠に恐縮です。
|
8
|
+
|
9
|
+
お時間をとらせてしまうのが誠に申し訳ないので、こちらでも引き続き考え努力する所存です。
|
6
10
|
|
7
11
|
buf = Dir(targetDir, vbDirectory)
|
8
12
|
|
@@ -26,7 +30,7 @@
|
|
26
30
|
|
27
31
|
ftpPath = targetbuf bufd
|
28
32
|
|
29
|
-
rc2 = FTP.Command("MKD " & "wwwroot/test/pokemon/"
|
33
|
+
rc2 = FTP.Command("MKD " & "wwwroot/test/pokemon/")
|
30
34
|
|
31
35
|
Help = FTP.GetReply()
|
32
36
|
|
@@ -40,11 +44,7 @@
|
|
40
44
|
|
41
45
|
ftpPath = "/" & ftpPath
|
42
46
|
|
43
|
-
|
44
|
-
|
45
|
-
rc = FTP.PutFile("C:\test\pokemon\", "wwwroot/test/pokemon") <> ""
|
46
|
-
|
47
|
-
|
47
|
+
rc = FTP.PutFile(targetDir, ftpPath) <> ""
|
48
48
|
|
49
49
|
' FTPでファイル送信
|
50
50
|
|