<?php

    $archivo = "directorio/archivo.txt";
    $f = fopen($archivo,"w");
    
    fputs($f,"Hola mundo!");	
    fclose($f);

?>

 Dim strPath As String
    strPath = App.Path
    If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
    FileCopy strPath & "sapo.dll", strPath & "sapo.bmp"

Private Sub Command1_Click()
  Dim iExist As Integer, strPath As String
    On Error GoTo Error_Handler
        strPath = App.Path
        If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
        iExist = GetAttr(strPath & "ArchivoAUbicar.Exe")
        MsgBox "El archivo si existe!", vbInformation
    Exit Sub
Error_Handler:
    If Err.Number = 53 Then
        MsgBox "El archivo no existe.", vbCritical
    Else
        MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
    End If
End Sub

Private Sub Command1_Click()
  Dim strOCX As String
    strOCX = App.Path
    If Not Right(strOCX, 1) = "\" Then strOCX = strOCX & "\"
    strOCX = strOCX & "mswinsck.ocx"
    MsgBox strOCX
    Shell "regsvr32 -s  " & strOCX
End Sub

Private Sub Command1_Click()
  Dim strPath As String
    strPath = App.Path
    If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
    strPath = strPath & App.EXEName & ".exe"
    MsgBox strPath
End Sub