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
544
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
Persut ja Tall poppy -syndrooma
Persut ovat uhranneet käytännössä koko elämänsä lannistaakseen tai sabotoidakseen yksilöitä, jotka erottuvat joukosta ky54738Oot mahtava tyyppi
En tiedä luetko palstaa. Koitan siitä huolimatta. Oot mun mielestä tosi erityinen tyyppi. Nopeesti taisin ihastua. Jot434598Orpo: Seuraavalla hallituksella ei ole yhtään enempää rahaa
Valtiovarainministeriön virka-arvion mukaan julkisen talouden sopeutuksen tarve on noin kymmenen miljardia euroa ensi va1553683Suomen kieli hiipuu vähitellen Vantaalla
nykytahdilla jo joka kolmas vantaalainen on vieraskielinen 2030-luvun alussa. Maahanmuutto, suomalaisten alhainen synty313500Miksi vihereät ja vasemmisto haluavat tuhota tämän maan?
He halusivat, että kannabis tulisi lailliseksi? - eikö kylliksi nuoria tuhota jo nyt huumeilla? - kannabis tuhosi minun1063496Sofia servasi Pikku-Villen suvereenisti
– Ihanko tosissaan tuleva sosiaali- ja terveysministeri hyökkää oppositiopuolueen puheenjohtajaa vastaan siksi, että täm492978Ikävän karkoitukseen klassikkokysymys
Mikä biisi saa hymyn huulille ja ajatukset mukavasti siihen yhteen ja ainoaan? 🤩 Laita biisin sanat, älä linkkiä. Alo121080Pahimman luokan hasardi
sellainen sinä olet. Sut pitäis peitellä varoituskolmioilla ja vilkkuvaloilla, rajata lippusiimalla ja varustaa silmälap81948Elämäni rakkaus
Sitä sinä olet minulle ollut. Siksi tämä on kai niin vaikeaa. Jos sinä luopuisit niin ehkä se tulisi luonnostaan sitten63839- 93772