06-09-15, 09:59 AM
PHP كود :
Dim sourlinks As String = Application.StartupPath & "\allqares\" & p.Trim & "\" & p.Trim & "_sl.txt"
If IO.File.Exists(sourlinks) = False Then
IO.File.Create(sourlinks)
End If
Str &= m2 & vbNewLine
IO.File.WriteAllText(sourlinks, str)