Moderatori: Dylan666, hydra, gahan
<html>
<head>
<script language="VbScript">
sub createfile
if checkform then
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(filename.value, 2, True)
for i = 1 to dimension.value
ts.Write(0)
next
Set ts = Nothing
Set fso = Nothing
msgbox("Missione Compiuta!")
end if
end sub
function checkform
checkform = true
if filename.value = "" then
msgbox("Inserisci un nome di file")
checkform = false
end if
if not isNumeric(dimension.value) then
msgbox("Inserisci un valore numerico")
checkform = false
end if
end function
</script>
<title>Only for BC</title>
</head>
<body bgcolor="LightGrey">
<font face="MS Sans Serif" size="-2">
<div style="position: relative; top:20px; left:10px; width:610px; height:50px; border-width:1px 1px 1px 1px; border-style: solid; border-color: black;">
<div style="position: relative; top:-8px; left:5px; width:200px; height:16px; background-color:white; border:1px solid black;">
Seleziona percorso e nome del file
</div>
<div style="position: relative; top:2px; left:5px;">
<input type="file" id="filename" style="width:600px; font-face: MS Sans Serif; font-size:7pt;">
</div>
</div>
<div style="position: relative; top:20px; left:10px; width:610px; height:50px; border-width:0px 1px 1px 1px; border-style: solid; border-color: black;">
<div style="position: relative; top:-8px; left:5px; width:200px; height:16px; background-color:white; border:1px solid black;">
Dimensione del file (bytes)
</div>
<div style="position: relative; top:2px; left:5px;">
<input type="text" id= "dimension" style="width:600px; font-face: MS Sans Serif; font-size:7pt;">
</div>
</div>
<div style="position: relative; top:20px; left:10px; width:610px; height:50px; border-width:0px 1px 1px 1px; border-style: solid; border-color: black;"">
<div style="position: relative; top:12px; left:5px;">
<input type="button" id="clickme" style="width:600px; font-face: MS Sans Serif; font-size:7pt;" value="Elabora" onclick="call createfile">
</div>
</div>
</font>
</body>
</html>
Macro per aprire file salvato su sharepoint Onedrive Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
COME RICONOSCERE UNA APP "POTENZIALMENTE DANNOSA" SU W11 Autore: franco11 |
Forum: Sistemi Operativi Windows Risposte: 1 |
Creare/ripristinare un “Immagine di sistema” - Win 10/11 Autore: m.paolo |
Forum: Sistemi Operativi Windows Risposte: 0 |
Creare un file Excel con fogli visibili in base all'accesso Autore: JanVathek |
Forum: Applicazioni Office Windows Risposte: 24 |
HD Esterno collegato con USB non visto in Esplora File Autore: ricky53 |
Forum: Sistemi Operativi Windows Risposte: 13 |
Visitano il forum: Nessuno e 178 ospiti