MATRIX Server 로 파일을 upload 합니다.
Syntax
public bool UploadFile( string filePath, string serverFolder, string ServerFilename, bool deleteOnComplete )
Parameters
filePath |
|---|
Type: String
Upload 할 local file full path
serverFolder |
|---|
Type: String
server folder 명 (server/reports 하위 폴더, 없는 경우 생성됨)
serverFilename |
|---|
Type: String Optional (Default : "")
Server 에 저장될 File명 (생략할 경우 local 파일명, 지정할경우 server 의 저장될 파일명)
deleteOnComplete |
|---|
Type: bool Optional (Default : false)
upload 완료후 local 파일 자동 삭제 여부 (생략할 경우 local 파일 유지, true 일경우 local 파일 삭제)
Returns
Type: bool
정상일 경우 : true
오류 일경우 : false
Example
'==========================================================================
'matrix 서버에 file을 upload 합니다.
'server/reports/folderxxx 에 생성됩니다.
'==========================================================================
Public Sub UploadFileTest()
Dim mxmodule As Object
Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
result = mxmodule.xapi.UploadFile("c:\test3.csv", "folder1")
'오류 확인
If result = False Then
MsgBox "upload fail " & mxmodule.xapi.LastErrorMessage
Else
MsgBox "upload success"
End If
End Sub
1 개의 댓글
MATRIX팀
'==========================================================================
'matrix 서버에 file을 upload 합니다.
'server/reports/_TEMP_/*** 에 생성됩니다.
'==========================================================================
Public Sub Upload_xlsx()
Dim result
Dim mxmodule2 As Object
Set mxmodule2 = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
Dim filePath
filePath = ThisWorkbook.Path & "\file001.xlsx" 'REP*'
result = mxmodule2.xapi.UploadFile(filePath, "mailfile", "", False, 2) '3
'"_TEMP_/mailpath" 서버설정 필요*
'flag 1 report , flag 2 file(TEMP) 폴더, flag 3 file (
''UploadFile(string filePath, string serverFolder = "", string serverFilename = "", bool deleteOnComplete = false, int flag = 1)
'오류 확인
If result = False Then
Debug.Print "upload fail " & mxmodule2.xapi.LastErrorMessage
MsgBox "upload fail - " & mxmodule2.xapi.LastErrorMessage
Else
Debug.Print "upload success"
MsgBox "upload Success"
End If
Set mxmodule2 = Nothing
End Sub