ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¼g¤J/Ū¨ú.txtÀɸê®Æ

[µo°Ý] ¦p¦ó¼g¤J/Ū¨ú.txtÀɸê®Æ

§Ú§Æ±æ¦bªí³æ¶}±Ò®É¯àÀˬd¬O§_¦³pathFile.txt¦s¦b,
­YµL->¦b§Úªº¤å¥ó§¨¤¤create¤@­ÓpathFile.txt¨Ã¼g¤J"mypath"
­Y¦³->Ū¨úpathFile.txt¤¤³Ì«á¤@¦C¸ê®Æ
«o¥X²{¿ù»~ ½Ð°Ý¸Ó¦p¦ó­×¥¿?
Private Sub UserForm_Initialize()
Dim workpath As String
Dim rLine As String
Dim a As Object
Set myText = CreateObject("Scripting.FileSystemObject")
Set myText = myText.OpenTextFile(Filename:="pathFile.txt") ', IOMode:=ForAppending, Create:=True)
    a = myText.READALL
    Do While InStr(a, vbCrLf) Or InStr(a, vbLf & vbLf)
        a = Replace(a, vbCrLf, vbLf)   
        a = Replace(a, vbLf & vbLf, vbLf)
    Loop
    If Mid(a, Len(a)) = vbLf Then a = Mid(a, 1, Len(a) - 1)
    a = Split(a, vbLf)
myText.Close

End Sub

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD