VB6 (lavorare con i file di testo)

[xegallo]

1)

Public Function IsDirExist(ByVal strPathName As String) As Boolean
    'Determinare se esiste una directory
    Dim fs As New Scripting.FileSystemObject
    IsDirExist = fs.FolderExists(strPathName)
    Set fs = Nothing
End Function

2) scrivi mkdir e il percorso
mkdir "C:\xegallo"

3)la funzione dir

if dir("c:\Autoexec.bat")then
   msgbox "te ne sei accorto che windows è partito"
else
   msgbox "reistalla Windows, subito!:D"
end if