|
Dim xFileName As String
Dim xFileInMemory$ Dim xFileLen As Long xFileName = "c:\autoexec.bat" If Dir$(xFileName) = "" Then MsgBox "File non esiste!" Exit Sub End If xFileLen = FileLen(xFileName) xFileInMemory$ = String$(xFileLen, 0) Open xFileName For Binary Access Read As #1 Get #1, 1, xFileInMemory$ Close #1 'xFileInMemory$ contiene l'intero file in memoria |