After that we must add some code on vb form, example :
Private Sub CheckConfigurationFiles()Dim strFileConf As StringDim fso As FileSystemObjectDim strFolSC As StringDim strFolDS As StringDim strAtoClose As StringDim strApp As StringstrFileConf = "SYNDER_BASIC_Con.xml"Set fso = CreateObject("Scripting.FileSystemObject")If fso.FileExists(App.Path & "\" & strFileConf) ThenDim objDOM As MSXML2.DOMDocument40 'Using reference microsoft XMLSet objDOM = New MSXML2.DOMDocument40objDOM.Load App.Path & "\" & strFileConf
'get data parameter, urutan dalam file xml berpengaruhstrFolSC = objDOM.childNodes(1).childNodes(0).nodeTypedValuestrFolDS = objDOM.childNodes(1).childNodes(1).nodeTypedValuestrAtoClose = objDOM.childNodes(1).childNodes(2).nodeTypedValuestrAppToRun = objDOM.childNodes(1).childNodes(3).nodeTypedValueEnd Sub
Have a nice code :D
No comments:
Post a Comment