用replace函数可以把“'”替换成任何你想要的字符。如:
aa="infor'infor"
aa = Replace(aa, "'", "''")就可以把aa中的'替换成''!直接kill "D:\Temp\1.txt"试试!

解决方案 »

  1.   

    此路不通就另找出路吧,用FileSystemObject吧!
    KILL 根本没错!是你没有建文件罢了.
      

  2.   

    回xmao(小猫):不是替换的问题,即使替换了,"不在字符串内部,在往文件里写的时候aa作为字符串还是会被带上引号写进去的,另外kill "D:\Temp\1.txt"试过,一样不行.回WxmJun(纪日):这个文件是存在的,而且我用别的存在文件试过,一样报错
      

  3.   

    >>Write #1, infor
    改为Print #1, infor即可
    Private Sub Command1_Click()
        Dim infor As String
        infor = "aaa"
        Open "D:\1.txt" For Output As #1
        Print #1, infor 
        Close (1)    Unload Me
        End
    End Sub
      

  4.   

    >>为什么执行时说路径找不到
    1.你没有权限访问这个文件
    2.这个文件是只读的