{"id":554,"date":"2019-08-07T14:30:26","date_gmt":"2019-08-07T05:30:26","guid":{"rendered":"http:\/\/csharp.ihavenomoney.co.kr\/?p=554"},"modified":"2020-03-05T17:03:43","modified_gmt":"2020-03-05T08:03:43","slug":"%ed%8c%8c%ec%9d%bc-%ec%9d%bd%ea%b8%b0-%ec%93%b0%ea%b8%b0","status":"publish","type":"post","link":"https:\/\/csharp.ihavenomoney.co.kr\/?p=554","title":{"rendered":"\ud30c\uc77c \uc77d\uae30 \uc4f0\uae30"},"content":{"rendered":"<p><strong>FileSystemObject<\/strong><\/p>\n<p><em>\uc77d\uae30 <\/em><\/p>\n<pre class=\"lang:vb decode:true \">Function Dir_OpenFile(ByVal File As String) as string\r\n    Dim fso, FileWriter As Object\r\n    \r\n    Set fso = CreateObject(\"scripting.FileSystemObject\")\r\n    Set FileWriter = fso.OpenTextFile(File)\r\n    Dir_OpenFile = FileWriter.ReadAll\r\n    FileWriter.Close\r\nEnd Function\r\n<\/pre>\n<p><em>\uc4f0\uae30<\/em><\/p>\n<pre class=\"lang:vb decode:true \">Public Sub Dir_WriteFile(ByVal File As String, ByVal Text As String)\r\n    Dim fso, FileWriter As Object\r\n    \r\n    Set fso = CreateObject(\"scripting.FileSystemObject\")\r\n    Set FileWriter = fso.CreateTextFile(File, True)\r\n    \r\n    FileWriter.Write Text\r\n    FileWriter.Close\r\nEnd Sub\r\n<\/pre>\n<p>\ucc38\uc870 : https:\/\/starplaying.tistory.com\/316<\/p>\n<p><strong>#fileNumber<\/strong><\/p>\n<p><em>\uc77d\uae30<\/em><\/p>\n<pre class=\"lang:vb decode:true \">Open \"fileName\" For Input As #fileNumber\r\n   VB Statements\r\n   Input #fileNumber, variable\r\n   VB Statements\r\nClose #fileNumber\r\n<\/pre>\n<p><em>\uc4f0\uae30 <\/em><\/p>\n<pre class=\"lang:vb decode:true \">Open \"fileName\" For Output As #fileNumber\r\n   VB Statements\r\n   Print #fileNumber, Contents\r\n   VB Statements\r\nClose #fileNumber\r\n<\/pre>\n<p>\ucc38\uc870 : https:\/\/aroundck.tistory.com\/1917<\/p>\n<p>\ud65c\uc6a9<\/p>\n<pre class=\"lang:vb decode:true \" >Private Sub Form_Load()\r\n\r\nDim sXML As String\r\n\r\nsXML = modFunction.Dir_OpenFile(\"D:\\samples\\Test.xml\")\r\n\r\n'Debug.Print sXML\r\n'\/\/xml.ParseXML (sXML)\r\n'Call SetCardData '\uceec\ub809\uc158\uc5d0 \uc800\uc7a5\r\n\r\nEnd Sub<\/pre>\n<p>*\ubaa8\ub4c8 : modFunction <\/p>\n<pre class=\"lang:vb decode:true \" >'\uc77c\uae30\r\nFunction Dir_OpenFile(ByVal File As String) As String\r\n    Dim fso, FileWriter As Object\r\n    \r\n    Set fso = CreateObject(\"scripting.FileSystemObject\")\r\n    Set FileWriter = fso.OpenTextFile(File)\r\n    Dir_OpenFile = FileWriter.ReadAll\r\n    FileWriter.Close\r\nEnd Function\r\n\r\n'\uc4f0\uae30\r\nPublic Sub Dir_WriteFile(ByVal File As String, ByVal Text As String)\r\n    Dim fso, FileWriter As Object\r\n    \r\n    Set fso = CreateObject(\"scripting.FileSystemObject\")\r\n    Set FileWriter = fso.CreateTextFile(File, True)\r\n    \r\n    FileWriter.Write Text\r\n    FileWriter.Close\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>FileSystemObject \uc77d\uae30 Function Dir_OpenFile(ByVal File As String) as string Dim fso, FileWriter As Object Set fso = CreateObject(&#8220;scripting.FileSystemObject&#8221;) Set FileWriter = fso.OpenTextFile(File) Dir_OpenFile = FileWriter.ReadAll FileWriter.Close End Function \uc4f0\uae30 Public Sub Dir_WriteFile(ByVal File As String, ByVal Text As String) Dim fso, FileWriter As Object Set fso = CreateObject(&#8220;scripting.FileSystemObject&#8221;) Set FileWriter = fso.CreateTextFile(File, True) FileWriter.Write Text\u2026 <span class=\"read-more\"><a href=\"https:\/\/csharp.ihavenomoney.co.kr\/?p=554\">Read More &raquo;<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[106],"tags":[107],"class_list":["post-554","post","type-post","status-publish","format-standard","hentry","category-vb6","tag-filesystemobject"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=\/wp\/v2\/posts\/554","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=554"}],"version-history":[{"count":4,"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=\/wp\/v2\/posts\/554\/revisions"}],"predecessor-version":[{"id":731,"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=\/wp\/v2\/posts\/554\/revisions\/731"}],"wp:attachment":[{"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=554"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=554"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/csharp.ihavenomoney.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=554"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}