Salve. Inizio dicendo che sono alle primissime armi con Visual Basic quindi non aspettatevi grandi codici da controllare, dovrebbe essere semplice.
Allora qualche giorno fa mi sono messo a giocherellare con Visual Studio (uso Microsoft Visual Basic 2010 Express perchè è veramente semplice) ed ho finito per fare questo:
L'ho fatto compilare e poi ho scoperto che non si poteva eseguire senza .NET Framework installato nel computer. Ma io non avevo mai usato .NET nel codice, almeno secondo me no, quindi dopo una ricerca ho visto due pagine
questa (My.Computer.FileSystem Object)
e questa (Classe File).
Da queste due pagine ho creduto di capire che la funzione System.IO.File.ecc era dipendente da .NET così ho sostituito le funzioni con My.Computer.FileSystem.ecc che dovrebbe essere semplicemente VB senza .NET.
Voi cosa ne pensate?
Qualcuno sa come creare un programmino in VB completamente indipendente da .NET?
P.S.: Ignorate cosa fa effettivamente il codice perchè era così tanto per cominciare
Allora qualche giorno fa mi sono messo a giocherellare con Visual Studio (uso Microsoft Visual Basic 2010 Express perchè è veramente semplice) ed ho finito per fare questo:
Codice:
Option Explicit On
Public Class Form1
Dim random = New Random
Dim utente As String = System.Environment.UserName
Dim cartella As String = "C:\Users\" & utente & "\Desktop\prova\"
Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("C:\stop.txt") Then
End
ElseIf Not System.IO.Directory.Exists(cartella) Then
System.IO.Directory.CreateDirectory(cartella)
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim counter = My.Computer.FileSystem.GetFiles(cartella)
Dim numero As String = Me.random.Next(0, 400)
If (CStr(counter.Count)) >= 400 Then
End
ElseIf Not System.IO.File.Exists(cartella & numero & ".txt") Then
System.IO.File.Create(cartella & numero & ".txt")
End If
End Sub
End Class
L'ho fatto compilare e poi ho scoperto che non si poteva eseguire senza .NET Framework installato nel computer. Ma io non avevo mai usato .NET nel codice, almeno secondo me no, quindi dopo una ricerca ho visto due pagine
questa (My.Computer.FileSystem Object)
e questa (Classe File).
Da queste due pagine ho creduto di capire che la funzione System.IO.File.ecc era dipendente da .NET così ho sostituito le funzioni con My.Computer.FileSystem.ecc che dovrebbe essere semplicemente VB senza .NET.
Codice:
Option Explicit On
Public Class Form1
Dim random = New Random
Dim utente As String = System.Environment.UserName
Dim cartella As String = "C:\Users\" & utente & "\Desktop\prova\"
Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("C:\stop.txt") Then
End
ElseIf Not My.Computer.FileSystem.DirectoryExists(cartella) Then
System.IO.Directory.CreateDirectory(cartella)
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim counter = My.Computer.FileSystem.GetFiles(cartella)
Dim numero As String = Me.random.Next(0, 400)
If (CStr(counter.Count)) >= 400 Then
End
ElseIf Not My.Computer.FileSystem.FileExists(cartella & numero & ".txt") Then
System.IO.File.Create(cartella & numero & ".txt")
End If
End Sub
End Class
Qualcuno sa come creare un programmino in VB completamente indipendente da .NET?
P.S.: Ignorate cosa fa effettivamente il codice perchè era così tanto per cominciare
Ultima modifica: