tervehdys, mitenkäs saan kerrottua parametrejä excelin koodista käsin dos komennoille?
elikkä rmdir toimii hyvin ilman /s parametriä kunhan kansio on tyhjä mutta miten saan tuon /s parametrin tai vastaavan mukaan jotta voisin poistaa kansioita joissa on sälää
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir /s path
End Sub
Tai vaihtoehtoisesti jos kutsun .bat tiedostoa tuosta koodista, niin miten saisin kiikutettua .bat tiedostoon tuon path tiedon?
Kiitoksia
etsi kansio / tuhoa kansio
matroxi
6
520
Vastaukset
- Kunde Rules
Aina silta saa vastauksen, jos asiallisesti kyselet
- minä itse =)
juu kundea lähinnä ajattelin kun tälle palstalle ongelmani kirjoitin.
Tuntuu mies(puhdas arvaus) meinaan käyttäneen exceliä muutaman kerran =)
vai onko olemassa joku kysy kundelta sivusto?
Mutta nyt en apua enään kaipaa vaan kerrankin keksin itse vastauksen =)
Eli alkuperäisessä pätkässä kansio ei poistunut koska siellä oli sälää, mutta pieni kiertotie ratkaisi asian eli tyhjinsin kansion kill lausekkeella vanha koodi:
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir path
End Sub
Muutettu toimiva koodi:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
fullpath = path & "\*.*"
Kill fullpath
RmDir path
End Sub - jos ei alihakemistoja
minä itse =) kirjoitti:
juu kundea lähinnä ajattelin kun tälle palstalle ongelmani kirjoitin.
Tuntuu mies(puhdas arvaus) meinaan käyttäneen exceliä muutaman kerran =)
vai onko olemassa joku kysy kundelta sivusto?
Mutta nyt en apua enään kaipaa vaan kerrankin keksin itse vastauksen =)
Eli alkuperäisessä pätkässä kansio ei poistunut koska siellä oli sälää, mutta pieni kiertotie ratkaisi asian eli tyhjinsin kansion kill lausekkeella vanha koodi:
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir path
End Sub
Muutettu toimiva koodi:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
fullpath = path & "\*.*"
Kill fullpath
RmDir path
End Submutta miks ei:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "/s c:\" & usrinput
RmDir path
End Sub - alkup.
jos ei alihakemistoja kirjoitti:
mutta miks ei:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "/s c:\" & usrinput
RmDir path
End SubJoo toihan olis aivan mahtava jos vaan toimisi, mutta esimerkissäsi se /s luetaan osaksi polkua ja tämän seurauksena se ei siis toimi
eli path = /s c:\syöte
antaa vaan ilmotuksen että path not found
toi tyhjentaa kansion vaikka siella olisi tiedostojakin. Kandee olla varovainen, ettei poista jotakin tarkeatakin.
Sub PoistaKansio()
Dim fso
Dim kansio As String
kansio = "c:\Testi"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(kansio) Then
fso.DeleteFolder kansio
Else
MsgBox kansio & " ei ole olemassa!" _
, vbExclamation, "Kansiota ei loytynyt"
End If
End Sub- alkup.
Eli ongelma ratkaistu, mutta mietiskelin jo aiemmin että onkohan keinoa saada siirrettyä käyttäjän syötettä esim. .bat suoritukseen tai .vbs:ään
syöte = inputbox(" kirjota jotain")
call c:\suoritus.bat
'ja batissa suorittaisi esim tuon poiston eli
rmdir /s "c:\" & syöte
ei varmaankaan pysty sillä ovathan ihan eri ympäristöjä, mutta tulipahan vaan mieleen...
Kiitos kuitenkin edellisestä
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t1293763Ikävä sinua..
Kauan on aikaa kulunut ja asioita tapahtunut. Mutta sinä M-ies olet edelleen vain mielessäni. En tiedä loinko sinusta va201743Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"
Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos161566Riikka Purra sanoo, että sietokykyni vittumaisiin ihmisiin alkaa olla lopussa.
https://www.iltalehti.fi/politiikka/a/be8f784d-fa24-44d6-b59a-b9b83b629b28 Riikka Purra sanoo medialle suorat sanat vitt3011425Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu181396Lindtmanin pääministeriys lähenee päivä päivältä
Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi381315Tuntuuko sinusta mies
että olet jossain, mutta sydämessäsi haluat olla muualla. Suunnittelet kaikkea kivaa ja olet innolla mukana, mutta silti16984Kapiainen siviiliesimies, Herra suuri Herra
Sotilaana kyvytön, johtajana munaton ja kotona tossun alla. Se on upseerin uran tuen pää, seinään ajo. Mutta aina löytyy74968Väärä pää tutustumiseen
Mikä ihme on, että miehet haluavat ensimmäisenä sänkyyn? Onko nykyään niin helppo saada nainen peittojensa alle.. tai pä127934Mitä tapahtuisi....
Meidän välillä jos törmäisimme yöelämässä ilman häiriötekijöitä ja olisimme hieman huppelissa? Päättyisikö ilta kenties60839