Newsgroup: it.comp.os.win.xp
Titolo: shortcut x nuova cartella.... esiste ???

come da oggetto
esiste o bisogna per forza fare tasto dx crea nuova cartella ?
-- 
My PC    :-D
K8N-E DX ; Athlon64 3200@2333 1MbCache
1Gb Kingmax Hardcore 500@466 2,5 3 3 5 1T
GeForce 6800GT Leadtek A400GT @410/1150
Audigy2@2ZS

 esiste o bisogna per forza fare tasto dx crea nuova cartella ?
Modificati e adattati questo esempio vbs :
(poi con un click puoi crarti qualsiasi cartella)
Set fso = CreateObject("Scripting.FileSystemObject")
sYr = Right(CStr(Year(Date)), 4)
sMo = Right("0" & CStr(Month(Date)), 2)
sDa = Right("0" & CStr(Day(Date)), 2)
sFolder = "C:\windows\temp" & "\" & sYr & "-" &"-" & sMo&"-"  & sDa
sFolder1 = "C:\windows\temp" & "\" & sMo& "-" &"-" & sYr &"-"  & sDa
sFolder2 = "C:\windows\temp" & "\" &sDa & "-" &"-" & sMo&"-"  &  sYr
     fso.CreateFolder( sFolder)
fso.CreateFolder( sFolder1)
fso.CreateFolder( sFolder2)
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Folders.vbs)
'se ti da' errore disattiva l'antivirus
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
--
Fosco

 esiste o bisogna per forza fare tasto dx crea nuova cartella ?
Clik Dx sul DeskTop / Nuovo / Collegamento
-- 
by Isaac
Qu...@excite.it
 - Non usare per messaggi privati 

"Fosco"
'simple
Set fso = CreateObject("Scripting.FileSystemObject")
 ' If Not fso.FolderExists("Nuova cartella") Then
If  fso.FolderExists("Nuova cartella") Then
Msgbox"Nuova cartella gia' presente"
else
fso.CreateFolder( "Nuova cartella")
End if
' la directory ATTIVA e' dove fisicamente viene piazzato il
' vbs ...   se per esempio e' in c:\windows\  la nuova folder sara'
'c:\windows\Nuova cartella
--
Fosco

(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
Scusa se mi aggancio, vorrei sapere se con un script tipo quello che
hai suggerito è possibile settare le impostazioni internazionali di
date, numeri e valuta ?
Puoi darmi una mano ?
Grazie
-- 
Ciao  Joe

 Clik Dx sul DeskTop / Nuovo / Collegamento
io volevo sapere se c'e' modo di creare una cartella senza il mouse, 
semplicemente con una combinazione di tasti.
quando rinomino, copio o sposto i file spesso non uso il mouse e alcune 
volte ho bisogno di creare cartelle ed e' una rottura prendere apposta il 
mouse.
tutto qua.

 (poi con un click puoi crarti qualsiasi cartella)
non mi serve crearlo con un click io voglio una nuava cartella senza l'uso 
del mouse, inoltre di visual basic non ci capisco un C***O quindi niente 
programmazione.
cio' che mi chiedo e' :.....
possibile che non ci sia uno shortcut tipo ctrl+c ecc per fare una cartella 
?

 prendere apposta il mouse.
Per crearla nella parte destra della finestra di Gestione Risorse
Tasto dei menu a destra in basso accanto a ctrl + U + Enter


 mouse.
NON e' visual basic ma vbs  (script)
Ti crei un collegamento allo script  e nel collegamento
metti la combinazione di tasti che desideri
(click destro sul collegamento proprieta >> tasti di scelta rapida)
--
Fosco

 date, numeri e valuta ?
Si .. ma dove li vuoi settare ?
se nel registro del TUO pc e' piu semplice crearsi de file reg e
lanciarli quando servono
o :
Set Shell = WScript.CreateObject ("Shell.Application")
''''''' Shell.ControlPanelItem" intl.cpl @ 0,2"
Shell.ControlPanelItem" intl.cpl @ 0,4"
e poi agire di sendkeys  ma e' poco affidabile
http://www.google.it/search?hl=it&q=international+settings&meta=
prova a vedere questo che sembra interessante e ti fa capire alcune cose
http://www.andreavb.com/downloads/download.php?17
devi registrare CoolIntLang.dll
www.regedit.com
http://www.winguides.com/
Registry hacks
http://www.mdgx.com/reg.htm
http://www.winguides.com/downloads/registry.exe
  (tips 1 mega)
http://www.winguides.com/article.php?id=1&page=4&guide=registry
RegShot 1.61e
http://www.pcworld.com/downloads/file_description/0,fid,19540,00.asp
http://www.snapfiles.com/get/regshot.html
--
Fosco

"Fosco"
http://www.google.it/search?hl=it&q=currency+settings%2Bregistry&meta=
http://forums.wugnet.com/Group-Policy-Controlling-Regional-Settings-ftopict394318.html
ecc
--
Fosco

"Joe"
http://vbnet.mvps.org/index.html?code/locale/timezonebiaslookup.htm
http://vbnet.mvps.org/code/locale/timezonebiaslookup.htm
http://vbnet.mvps.org/code/locale/localecurrency.htm
http://vbnet.mvps.org/code/locale/localedates.htm
http://vbnet.mvps.org/code/locale/localenumerics.htm
ecc
guarda questi sono in Visual Basic  ma se leggi il codice
ti spiega come ottenere le informazioni nel registro
ed una volta capito dove sono le puoi cambiare a tuo piacimento
o con dei file reg (meglio)  oppure :
Windows Script Host
RegWrite Method
Creates a new key, adds another value-name to an existing key
(and assigns it a value), or changes the value of an existing value-name.
object.RegWrite(strName, anyValue [,strType])
Arguments
object
WshShell object.
strName
String value indicating the key-name, value-name, or value you want to create,
add, or change.
anyValue
The name of the new key you want to create, the name of the value you
want to add to an existing key, or the new value you want to assign to an
existing value-name.
strType
Optional. String value indicating the value's data type.
Remarks
Specify a key-name by ending strName with a final backslash.
Do not include a final backslash to specify a value name.
The RegWrite method automatically converts the parameter anyValue
to either a string or an integer. The value of strType determines its data
type (either a string or an integer).
The options for strType are listed in the following table.
Converted to strType
String REG_SZ
String REG_EXPAND_SZ
Integer REG_DWORD
Integer REG_BINARY
Note The REG_MULTI_SZ type is not supported for the RegWrite method.
Tip RegWrite will write at most one DWORD to a REG_BINARY value.
Larger values are not supported with this method.
Fully qualified key-names and value-names are prefixed with a root key.
You may use abbreviated versions of root key names with the RegWrite method.
The five root keys are listed in the following table.
Root key Name Abbreviation
HKEY_CURRENT_USER HKCU
HKEY_LOCAL_MACHINE HKLM
HKEY_CLASSES_ROOT HKCR
HKEY_USERS HKEY_USERS
HKEY_CURRENT_CONFIG HKEY_CURRENT_CONFIG
The four possible data types you can specify with strType are
listed in the following table.
Type Description In the Form of
REG_SZ A string A string
REG_DWORD A number An integer
REG_BINARY A binary value An integer
REG_EXPAND_SZ An expandable string (e.g., "%windir%\\calc.exe")
A string  Example
The following code creates a key and two values, reads them, and deletes them.
'[VBScript]  (occio al line wrap)
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"
--
Fosco

ti spiega come ottenere le informazioni nel registro
cut
Grazie al cubo
ora me li studio, mi sa che e' il sistema giusto.
Grazie ancora e ciao.
-- 
Ciao  Joe

 Grazie ancora e ciao.
Di niente
i file che scarichi (*.frm) sono in plain text per leggerli se NON hai Visual basic
basta aprirli con Notepad
--
Fosco

"Fosco"
0311 » Regional settings in the registry.
All Regional/International settings are stored in the registry as type REG_SZ
value at HKEY_CURRENT_USER\Control Panel\International
iCountry    Country code is the international telephone code, except for Canada,
which is 2. The default is 1.
iCurrDigits Number digits displayed after the decimal separator. The default is 2.
iCurrency   Determines how currency is displayed:
Value Meaning
0 $2
1 2$
2 $ 2
3 2 $
iDate          Determines how dates are displayed:
Value Meaning
0 mm/dd/yy
1 dd/mm/yy
2 yy/mm/dd
iDigits        The number of digits displayed after the decimal separator in numbers.
The default is 2.
iLZero        Leading zeros are not displayed if 0 (default).
A Leading zero is displayed if set to 1.
iMeasure    Metric is 0, U.S. is 1
iNegCurr    Determines the format for displaying negative
numbers (default is 1):
Value Meaning
0 ($100.00)
1 -$100.00
2 $-100.00
3 $100.00-
4 (100.00$)
5 -100.00$
6 100.00-$
7 100.00$-
8 -100.00$
9 -$ 100.00
10 100.00 $-
11 $ 100.00-
12 $ -100.00
13 100.00- $
14 ($100.00)
15 (100.00 $)
iTime         Determines if the clock is 12 hours (0) or 24-hour (1).
iTLZero     The default of 0 means hours may have single digits, a 1 pads to double digits.
Locale locale ID for spoken language. The default is U.S. English which is 00000409.
s1159         AM indicator for a 12 hour clock.
s2359         PM indicator for a 12 hour clock.
sCountry   Country name. The default for U.S. English is United States.
sCurrency  Currency symbol. The default for U.S. English is $.
sDate         Date separator. The default for U.S. English is /.
sDecimal    Decimal separator symbol. The default for U.S. English is the . (period).
sLanguage  Language abbreviation: (U.S. English is ENU)
Value Meaning
CSY Czech
DAN  Danish
DEA  German (Austrian)
DES  German (Swiss)
DEU  German
ELL  Greek
ENA  English (Australia)
ENC  English (Canada)
ENG  English (U.K.)
ENI  English (Irish)
ENU  English (U.S.)
ENZ  English (New Zealand)
ESM  Spanish (Mexican)
ESN  Modern Spanish
ESP  Castilian Spanish
ETI  Estonian
FIN  Finnish
FRA  French
FRB  French (Belgian)
FRC  French (Canadian)
FRS  French (Swiss)
HUN  Hungarian
ISL  Icelandic
ITA  Italian
ITS  Italian (Swiss)
NLB  Dutch (Belgian)
NLD  Dutch
NON  Norwegian (Nynorsk)
NOR  Norwegian (Bokmal)
PLK  Polish
PTB  Portuguese (Brazilian)
PTG  Portuguese
RUS  Russian
SKY  Slovak
SVC  Swedish
SVE  Swedish
TRK  Turkish
sList          List separator character. The default for U.S. English is , (comma).
sLongDate Long Date format:
Value Meaning
dddd, MMMM dd, yyyy Wednesday, November 19, 1997
MMMM dd, yyyy November 19, 1997
dddd, dd MMMM, yyyy Wednesday, 19 November , 1997
dd MMMM, yyyy 19 November , 1997
sShortDate  Short date:
Value Meaning
MM/dd/yy 03/08/99
M/d/yy 3/8/99
M/d/yyyy 3/8/1999
MM/dd/yyyyy 03/08/1999
yy/MM/dd 99/03/08
dd-MM-yy 08-Mar-99
sThousand   Thousands separator. The default for U.S. English is , (comma).
sTime           Time separator. The default for U.S. English is : (colon).
sTimeFormat The default is HH:mm:ss
NOTE: See tip 3452 for Windows 2000 additions.
http://www.jsifaq.com/SUBG/TIP3400/rh3452.htm
--
Fosco


cut
 
Mi rendo conto che e' passato piu' di un mese, ma tra le ferie e il
lavoro sono riuscito a guardare tutti i tuoi suggerimenti solo da poco
e il risultato e' questo file .vbs :
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Imposta il valore di HKCU\Control
Panel\International\sMonDecimalSep a ',' "
WSHShell.RegWrite "HKCU\Control Panel\International\sMonDecimalSep",
","
WSHShell.Popup "Imposta il valore di HKCU\Control
Panel\International\sDecimal a ',' "
WSHShell.RegWrite "HKCU\Control Panel\International\sDecimal", ","
... e ti risparmio le altre chiavi :-))
ora il fatto è che lo script funziona, e nel registro i valori
cambiano, il problema e' che non variano nel pannello di controllo
fino al riavvio successivo.
Esiste un sistema per rendere le modifiche subito attive ?
Grazie, i tuoi link sono stati preziosi.
Ciao
-- 
Ciao  Joe

 Esiste un sistema per rendere le modifiche subito attive ?
Ehhhh ... non ne ho mai avuto bisogno direttamente ma di striscio
mi pare di aver letto che (almeno in Visual Basic) esisteva un trucco
ma non ricordo dovel'ho letto
'In VBS potresti provare questo ma non so se fa' allo scopo
set oShell = CreateObject("WScript.Shell")
oShell.run"C:\WINDOWS\RUNDLL.EXE user,RepaintScreen"
'questo sotto e' l'esempio che dicevo in Winbatch[1] fai magari una ricerca
http://www.google.it/search?hl=it&q=SHChangeNotify&meta=
[1] 
http://www.winbatch.com/index.html
;Refresh Everything By Telling Windows an Association has Changed
--------------------------------------------------------------------------------
;You could tell windows that something has changed and it needs to refresh:
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#DefineFunction SH_Refresh ()
;Refresh everything by telling Windows an association has changed
;SHCNE_ASSOCCHANGED=134217728
;SHCNF_FLUSH=4096
RetVal=DllCall(StrCat(DirWindows(1),"Shell32.dll"),void:"SHChangeNotify",long:134217728,long:4096,lpnull,lpnull)
Return (RetVal)
#EndFunction
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Test=SH_Refresh ()
Exit
If Test
   Message ("Result:","Refresh Successful")
Else
   Message ("Result:","Refresh Unsuccessful")
EndIf
Exit
--
Fosco

 oShell.run"C:\WINDOWS\RUNDLL.EXE user,RepaintScreen"
Se vuoi agganciarlo (inserirlo nel tuo script) metti alla fine dello stesso :
WScript.Sleep 5000
WSHShell.run"C:\WINDOWS\RUNDLL.EXE user,RepaintScreen"
' ma non penso che faccia allo scopo .. a memoria ha lo stesso
' effetto di un F5 sul desktop  ma tu prova ..
--
Fosco

"Joe"
http://www.experts-exchange.com/winprog/Q_10970963.html
leggi le risposte in fondo alla pagina
http://www.google.it/search?hl=it&q=SystemParametersInfo&meta=
questo e' l'api guide scaricalo e cerca SystemParametersInfo
http://www.mentalis.org/agnet/apiguide.shtml
http://www.mentalis.org/agnet/appdown.shtml
http://www.mentalis.org/index2.shtml
ci son alcune dll che permettono il richiamo delle api direttamente
da VBS (NON facile come soluzione bisogna smanettarci parecchio)
--
Fosco