<p>使用FileSystemObject，举个例子给你</p> <p>自己看一下，应该比较简单</p> <p>sub WriteIni(sRoot,sUser,sPassword,sQuota)<br /> Const ftpservdir=&quot;C:Program FilesServ-U&quot;<br /> dim str(7),sFullPath<br /> if isnull(sQuota) then sQuota=20480<br /> sFullPath=sRoot &amp; &quot;&quot; &amp; sUser<br /> Set FO=CreateObject(&quot;Scripting.FileSystemObject&quot;)<br /> Set TF=FO.OpenTextFile( ftpservdir &amp; &quot;Serv-U.INI&quot;, 8, TRUE)<br /> str(0)=&quot;[USER=&quot; &amp; sUser &amp; &quot;]&quot; &#39;UserName<br /> str(1)=&quot;Password=&quot; &amp; sPassword &#39;Password<br /> str(2)=&quot;HomeDir=&quot; &amp; sFullPath &#39;Directory<br /> str(3)=&quot;ChangePassword=YES&quot;<br /> str(4)=&quot;QuotaEnable=YES&quot;<br /> str(5)=&quot;QuotaMaxCurrent=&quot; &amp; cstr(sQuota) &amp; &quot;,0&quot; &#39;Quota<br /> str(6)=&quot;Access1=&quot; &amp; sFullPath &amp; &quot;,ARWMCDLP&quot; &#39;Directory<br /> str(7)=&quot;Timeout=5&quot; &#39;TimeOut of Idle<br /> dim i<br /> for i=0 to 7<br /> TF.writeline cstr(str(i))<br /> next<br /> TF.Close<br /> end sub</p>