now my source is about 1000 MB Huge
and i dont have a DVD writer
So can i install it from my HD exactly as if i was installing from a CD?
thnx
Posted 25 October 2006 - 12:29 AM
Posted 25 October 2006 - 08:52 AM
Quote
Quote
@Echo Off
CLS
Color F9
Mode 65,5
Title Set Source Drive Letter
Echo.
Echo Processing the Source Drive Letter
set SourceDrive=%SystemDrive%\SourceDrive.vbs
Echo Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") > %SourceDrive%
Echo Dim Drv, strFileName, StrD, TS >> %SourceDrive%
Echo Set Drv = Fso.Drives >> %SourceDrive%
Echo strFileName = Fso.BuildPath(Wscript.ScriptFullName ^& "\..", "SourceDrive.cmd") >> %SourceDrive%
Echo strFileName = Fso.GetAbsolutePathName(strFileName) >> %SourceDrive%
Echo For Each StrD In Drv >> %SourceDrive%
Echo If StrD.DriveType = 2 Then >> %SourceDrive%
Echo If Fso.FolderExists(StrD ^& "\Apps") Then >> %SourceDrive%
Echo Set TS = Fso.CreateTextFile(strFileName) >> %SourceDrive%
Echo Ts.WriteLine "Set Source=" ^& StrD ^& "\Apps\" >> %SourceDrive%
Echo TS.Close >> %SourceDrive%
Echo Exit For >> %SourceDrive%
Echo Else >> %SourceDrive%
Echo Set TS = Fso.CreateTextFile(strFileName) >> %SourceDrive%
Echo Ts.WriteLine "Set Source=Cannot_Find_Source_Folder" >> %SourceDrive%
Echo TS.Close >> %SourceDrive%
Echo End If >> %SourceDrive%
Echo End If >> %SourceDrive%
Echo Next >> %SourceDrive%
Start /w %SourceDrive%
Call %SystemDrive%\SourceDrive.cmd
Set %Source%=
Del %SourceDrive%
Del %SystemDrive%\SourceDrive.cmd
Echo %Source%
Pause
Quote
Quote
Quote
Quote
Quote
cmdow @ /HID
@echo off
Echo.
Echo Processing the Source Drive Letter
set SourceDrive=%SystemDrive%\SourceDrive.vbs
Echo Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") > %SourceDrive%
Echo Dim Drv, strFileName, StrD, TS >> %SourceDrive%
Echo Set Drv = Fso.Drives >> %SourceDrive%
Echo strFileName = Fso.BuildPath(Wscript.ScriptFullName ^& "\..", "SourceDrive.cmd") >> %SourceDrive%
Echo strFileName = Fso.GetAbsolutePathName(strFileName) >> %SourceDrive%
Echo For Each StrD In Drv >> %SourceDrive%
Echo If StrD.DriveType = 2 Then >> %SourceDrive%
Echo If Fso.FolderExists(StrD ^& "\Apps") Then >> %SourceDrive%
Echo Set TS = Fso.CreateTextFile(strFileName) >> %SourceDrive%
Echo Ts.WriteLine "Set Source=" ^& StrD ^& "\Apps\" >> %SourceDrive%
Echo TS.Close >> %SourceDrive%
Echo Exit For >> %SourceDrive%
Echo Else >> %SourceDrive%
Echo Set TS = Fso.CreateTextFile(strFileName) >> %SourceDrive%
Echo Ts.WriteLine "Set Source=Cannot_Find_Source_Folder" >> %SourceDrive%
Echo TS.Close >> %SourceDrive%
Echo End If >> %SourceDrive%
Echo End If >> %SourceDrive%
Echo Next >> %SourceDrive%
Start /w %SourceDrive%
Call %SystemDrive%\SourceDrive.cmd
Set %Source%=
SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
Del %SourceDrive%
Del %SystemDrive%\SourceDrive.cmd
REG ADD %KEY%\003 /V 1 /D "APLLICATION NAME" /F
REG ADD %KEY%\003 /V 2 /D "%Source%APLLICATION_FOLDER\APPLICATION.exe /s /v/qn" /f
Posted 25 October 2006 - 09:03 AM
This post has been edited by travisowens: 25 October 2006 - 09:03 AM
Posted 25 October 2006 - 10:10 AM
Posted 25 October 2006 - 11:15 AM
InTheWayBoy, on Oct 25 2006, 10:10 AM, said:
Posted 25 October 2006 - 11:17 AM
travisowens, on Oct 25 2006, 06:15 PM, said:
InTheWayBoy, on Oct 25 2006, 10:10 AM, said:
Posted 25 October 2006 - 06:57 PM
Posted 26 October 2006 - 08:19 AM