+// ディレクトリ自動作成\r
+// リモート側のパスから必要なディレクトリを作成\r
+int MakeDirFromRemotePath(char* RemoteFile, char* Old, int FirstAdd)\r
+{\r
+ TRANSPACKET Pkt;\r
+ TRANSPACKET Pkt1;\r
+ char* pDelimiter;\r
+ char* pNext;\r
+ char* Cat;\r
+ int Len;\r
+ int Make;\r
+ pDelimiter = RemoteFile;\r
+ Make = NO;\r
+ while(pNext = strchr(pDelimiter, '/'))\r
+ {\r
+ Len = pNext - RemoteFile;\r
+ strncpy(Pkt.RemoteFile, RemoteFile, Len);\r
+ Pkt.RemoteFile[Len] = '\0';\r
+ if(strncmp(RemoteFile, Old, Len + 1) != 0)\r
+ {\r
+ Cat = Pkt.RemoteFile + (pDelimiter - RemoteFile);\r
+ if(FnameCnv == FNAME_LOWER)\r
+ _mbslwr(Cat);\r
+ else if(FnameCnv == FNAME_UPPER)\r
+ _mbsupr(Cat);\r
+#if defined(HAVE_TANDEM)\r
+ Pkt.FileCode = 0;\r
+ Pkt.PriExt = DEF_PRIEXT;\r
+ Pkt.SecExt = DEF_SECEXT;\r
+ Pkt.MaxExt = DEF_MAXEXT;\r
+#endif\r
+ ReplaceAll(Pkt.RemoteFile, '\\', '/');\r
+\r
+ if(AskHostType() == HTYPE_ACOS)\r
+ {\r
+ strcpy(Pkt.RemoteFile, "'");\r
+ strcat(Pkt.RemoteFile, AskHostLsName());\r
+ strcat(Pkt.RemoteFile, "(");\r
+ strcat(Pkt.RemoteFile, Cat);\r
+ strcat(Pkt.RemoteFile, ")");\r
+ strcat(Pkt.RemoteFile, "'");\r
+ }\r
+ else if(AskHostType() == HTYPE_ACOS_4)\r
+ strcpy(Pkt.RemoteFile, Cat);\r
+\r
+ if((FirstAdd == YES) && (AskNoFullPathMode() == YES))\r
+ {\r
+ strcpy(Pkt1.Cmd, "SETCUR");\r
+ AskRemoteCurDir(Pkt1.RemoteFile, FMAX_PATH);\r
+ AddTransFileList(&Pkt1);\r
+ }\r
+ FirstAdd = NO;\r
+ strcpy(Pkt.Cmd, "MKD ");\r
+ strcpy(Pkt.LocalFile, "");\r
+ AddTransFileList(&Pkt);\r
+\r
+ Make = YES;\r
+ }\r
+ pDelimiter = pNext + 1;\r
+ }\r
+ return Make;\r
+}\r
+\r
+void UploadListProc(int ChName, int All)\r