回答編集履歴
2
ご指摘いただいた箇所の修正
answer
CHANGED
|
@@ -3,6 +3,8 @@
|
|
|
3
3
|
私自身の知識不足により、十分な修正ができないままでおります。
|
|
4
4
|
お手数おかけして誠に恐縮です。
|
|
5
5
|
お時間をとらせてしまうのが誠に申し訳ないので、こちらでも引き続き考え努力する所存です。
|
|
6
|
+
vbDirectoryにつきまして対応、修正いたしました。
|
|
7
|
+
|
|
6
8
|
buf = Dir(targetDir, vbDirectory)
|
|
7
9
|
Do While buf <> ""
|
|
8
10
|
If buf = "." Or buf = ".." Then
|
|
@@ -13,8 +15,8 @@
|
|
|
13
15
|
isDir = Tru
|
|
14
16
|
'ディレクトリ名作成
|
|
15
17
|
|
|
16
|
-
ftpPath = targetbuf
|
|
18
|
+
ftpPath = targetbuf & buf
|
|
17
|
-
rc2 = FTP.Command("MKD " &
|
|
19
|
+
rc2 = FTP.Command("MKD " & ftpPath）
|
|
18
20
|
Help = FTP.GetReply()
|
|
19
21
|
' ディレクトリに対してFTP処理
|
|
20
22
|
'FTP
|
1
ご指摘いただいた箇所の修正
answer
CHANGED
|
@@ -1,6 +1,8 @@
|
|
|
1
1
|
迅速にご回答くださりありがとうございました。
|
|
2
|
-
こちらなんですが、
|
|
2
|
+
こちらのコードなんですが、ご指摘いただいた箇所に関して修正いたしましたが、
|
|
3
|
-
|
|
3
|
+
私自身の知識不足により、十分な修正ができないままでおります。
|
|
4
|
+
お手数おかけして誠に恐縮です。
|
|
5
|
+
お時間をとらせてしまうのが誠に申し訳ないので、こちらでも引き続き考え努力する所存です。
|
|
4
6
|
buf = Dir(targetDir, vbDirectory)
|
|
5
7
|
Do While buf <> ""
|
|
6
8
|
If buf = "." Or buf = ".." Then
|
|
@@ -12,16 +14,14 @@
|
|
|
12
14
|
'ディレクトリ名作成
|
|
13
15
|
|
|
14
16
|
ftpPath = targetbuf bufd
|
|
15
|
-
rc2 = FTP.Command("MKD " & "wwwroot/test/pokemon/"
|
|
17
|
+
rc2 = FTP.Command("MKD " & "wwwroot/test/pokemon/"）
|
|
16
18
|
Help = FTP.GetReply()
|
|
17
19
|
' ディレクトリに対してFTP処理
|
|
18
20
|
'FTP
|
|
19
21
|
Else
|
|
20
22
|
isDir = False
|
|
21
23
|
ftpPath = "/" & ftpPath
|
|
22
|
-
|
|
23
|
-
rc = FTP.PutFile("C:\test\pokemon\", "wwwroot/test/pokemon") <> ""
|
|
24
|
-
|
|
24
|
+
rc = FTP.PutFile(targetDir, ftpPath) <> ""
|
|
25
25
|
' FTPでファイル送信
|
|
26
26
|
End If
|
|
27
27
|
If isDir Then
|