File Accessç»ä»¶æä¾äºè®¿é®è®¡ç®æºæ件系ç»çæ¹æ³åå±æ§ãæ们å¯ä»¥ä½¿ç¨File Accessç»ä»¶å建FileSystemObject对象ï¼FileSystemObject对象æ两ç§æ常ç¨çæ¹æ³ï¼ä¸ç§ç¨æ¥å建æ件ï¼å¦ä¸ç§æ¯ç¨æ¥æå¼å¹¶è¯»åææ¬æ件ãCreateTextFileæ¹æ³è·å¾ä½ æå®çæ件å并å建该æ件ï¼å®è¿åä¸ä¸ª TextStream对象ï¼ä½ å¯ä»¥ç¨è¯¥å¯¹è±¡å¨æ件被å建åæä½è¯¥æ件ï¼CreateTextFileæ¹æ³çè¯æ³å¦ä¸ :
Set objTextStream=FileSystemObject.CreateTextFile(Filename,[Overwrite],[Unicode])
ä¸é¢ä½è
ç»å¤§å®¶è§£éä¸ä¸ CreateTextFile æ¹æ³çåæ°
ãã1ãFilenameå
å«æ件路å¾åçå符串ï¼å¯ä»¥æ¯æ件çå
¨è·¯å¾åï¼å
æ¬é©±å¨å¨ååç®å½åï¼æè
ä¹å¯ä»¥åªæ¯æ件åï¼å¦æåªå
å«æ件åçè¯ï¼æ件å°è¢«å建å¨ç«ç¹çæ ¹ç®å½ä¸ã
ãã2ãOverwriteå¸å°éï¼è®¾ç½®æFalseæ¶å¯ä»¥é²æ¢FileSystemObject对象å¨å建ä¸ä¸ªæ°æ件æ¶å é¤å·²åå¨çæ件ï¼è¯¥åæ°æ¯å¯éçï¼å¦æ没æèµå¼ç³»ç»é»è®¤ä¸ºtrueï¼å
·æç¸åæ件åçå·²ææ件ä¼è¢«å æã
ãã3ãUnicodeå¯éåæ°ãå¸å°å¼æææ¯å¦ä»¥UnicodeæASCIIæä»¶æ ¼å¼å建æ件ãå¦æ以Unicodeæä»¶æ ¼å¼å建æ件ï¼å该å¼ä¸ºTrueï¼å¦æ以ASCIIæä»¶æ ¼å¼å建æ件ï¼å该å¼ä¸ºFalseãå¦æçç¥æ¤é¨åï¼ååå®å建ASCIIæ件ã
ããæä»¬ç¨ set ss=fs.CreateTextFile(syslog,ForWriting,false)æ¥å¨logæ件ä¸åå¨çæ
åµä¸å建æ件并对æ件è¿è¡åæä½ï¼è¿éçâForWritingâ表示åæ件ã
ããä¸CreateTextFileæ¹æ³ä¸å,OpenTextFileæ¹æ³ç¨æ¥è·å¾ä½ æå®çæ件å并æå¼è¯¥æ件ï¼å©ç¨å®æ带çåæ°æ们å¯ä»¥å¯¹æ件è¿è¡åç§ä¸åçæä½åCreateTextFileæ¹æ³ä¸æ ·ï¼OpenTextFile æ¹æ³è¿åä¸ä¸ªTextStream对象ï¼ä½¿å¾ä½ å¯ä»¥å¨æ件被æå¼åæä½è¯¥æ件ãOpenTextFile æ¹æ³çè¯æ³å¦ä¸ :
Set objTextStream=FileSystemObject.OpenTextFile(Filename,[IOmode],[Create],[Format])
åæ°è¯´æå¦ä¸ :
ã1ãFilenameå¿
é¡»çåéï¼åCreateTextFileçfilename
ã2ãIOmodeå¯éç常éï¼åå¼ä¸ºä¸å两个常æ°ä¹ä¸ForReadingæForAppendingï¼å¦æmode为 1ï¼æ件以åªè¯»æ¹å¼æå¼ï¼å¦æ为8ï¼åæ件以追å çæ¹å¼æå¼ã
ã3ãCreateå¯éçå¸å°éï¼æå®å¦æä½ æ³æå¼çæ件ä¸åå¨æ¯åä»ä¹æä½ï¼å¦æå
¶å¼ä¸ºTrueï¼å½æ件ä¸åå¨æ¶å°±èªå¨å建ä¸ä¸ªç©ºçæ件ãå¦æ为Falseï¼å°±ä¼å¨æ件没æ¾å°æ¶äº§çä¸ä¸ªåºéä¿¡æ¯ï¼å
¶é»è®¤å¼æ¯Falseï¼å»ºè®®å°å
¶è®¾ä¸ºTrueï¼ä»¥é¿å
å¨æå¼æ件æ¶æ£æ¥æ¯å¦åºéã
ã4ãFormatå¯éå¼ï¼å¯ä»¥éæ©ä¸ç§Tristateå¼åå«æå®æ件çæ ¼å¼ï¼-2ã-1ãå0åå«å¯¹åºäºç³»ç»ç¼ºçãunicodeåASCIIã
ããå¨æå¼æå建äºææ¬æ件åï¼å°±å¾å°ä¸ä¸ªTextStream对象ï¼ä¸é¢ååºäºTextStream对象çå±æ§åæ¹æ³
ãTextStream.AtEndOfLineåªè¯»å¸å°éï¼å½å
æ å¨å½åè¡çæ«å°¾æ¶ï¼å
¶å¼ä¸ºtrueï¼å¦å为false
ãTextStream.AtEndOfStreamåªè¯»å¸å°éï¼å¦æå
æ å¨æµçæ«å°¾æ¶ï¼å
¶å¼ä¸ºtrueï¼å¦å为false
ãTextStream.Columnåªè¯»çæ´æ°ï¼ç»è®¡ä»è¡é¦å°å½åå
æ ä½ç½®ä¹é´çå符æ°
ãTextStream.Lineåªè¯»çæ´æ°ï¼ææå
æ æå¨è¡å¨æ´ä¸ªæ件ä¸çè¡å·
ãTextStream.close()å
³éæµä»¥å对åºçææ¬æ件
ãTextStream.read(Num)æå®ä»å
æ çå½åä½ç½®å¼å§ä»ææ¬æ件ä¸è¯»åä¸å®æ°ç®çå符
ãTextStream.readall()å°æ´ä¸ªæµè¯»å
¥ä¸ä¸ªå符串ä¸
ãTextStream.readline()å°ä¸æ´è¡çå符读å
¥ä¸ä¸ªå符串ä¸
ãTextStream.write(text)å°ä¸ä¸ªå符串åå
¥æµä¸
ãTextStream.writeline()å°ä¸ä¸ªææ¬ä¸²åå
¥æµä¸
ãTextStream.skip(Num)å¨æµä¸ï¼å°å
æ çä½ç½®ç§»å¨ä¸å®æ°ç®çå符串é¿åº¦
ãTextStream.skiplines()å¨æµä¸ï¼å°å
æ 移å¨ä¸å®æ°ç®çè¡æ°
ãTextStream.writeblankå°ä¸å®æ°ç®ç空è¡åå
¥æµä¸
ãlines(num)
温馨提示:答案为网友推荐,仅供参考